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-REM \ 


IDENTIFICATION 


PRODUCT CODE:  AC-F927B-MC 

PRODUCT NAME: CZRMOBO RMO5/3/2 FUNCTIONAL TEST, PT 3 
PRODUCT DATE: APRIL 1981 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS_ FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1980,1981 DIGITAL EQUIPMENT CORPORATION 
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1.0 INTRODUCTION 
1.1. ABSTRACT 


THE RMO5/3/2 SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM 
WHICH USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE 
RMOS/3/2 DISK SUBSYSTEM. IN PARTICULAR, THE PROGRAM SERVES’ THE 
FOLLOWING PURPOSES: 


TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
31 TR ta INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 


TO IMPLICITLY ESTABLISH CONFIDENCE IN THE DRIVE/ADAPTER 
ELECTRICAL INTERFACE; 


TO VERIFY THE FUNCTIONALITY OF THE RMO5/3/2 SUBSYSTEM, INCLUDING 
THE MASSBUS CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE. 


THE TEST IS COMPRISED OF 3 PARTS, WHICH WOULD NORMALLY BE RUN IN 
SEQUENCE, STARTING WITH PART 1. BRIEFLY, PART 1 TESTS HOUSEKEEPING 
AND MECHANICAL POSITIONING OPERATIONS; PART 2 TESTS WRITE, READ AND 
WRITE CHECK OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE, 
READ AND WRITE CHECK OPERATIONS USING DATA. 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RMO5/3/2 DISK SUBSYSTEM WHICH 
CONSISTS OF THE RH MASSBUS CONTROLLER, THE RMO5/3/2 MASSBUS ADAPTER, 
AND THE STORAGE MODULE DISK DRIVE. NOTE THAT A DISK PACK IS REQUIRED 
a AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 


THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED 10 BE 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RMO5/3/2 SUBSYSTEM 
FUNCTIONAL TEST: 


PDP-11 PROCESSOR 
20K M Y 


EMOR 
KW11-L OR KW11-P CLOCK 
PROGRAM LOADING DEVICE 
TERMINAL 
RH11 OR RH70 CONTROLLER 
1 TO 8 DISK DRIVES (ANY COMBINATION OF RMO5'S, RMOS°S OR RMO2'S) 


SOD, PE ee ee em erm ee mee ee 


SEQ 0003 
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2.2 MEDIA REQUIREMENTS 
EACH UNIT BEING TESTED “t® BE , ones? WITH A SCRATCH DISK PACK 


BEFORE TESTING BEGINS ON THAT UNIT. THE DISK MUST BE FORMATTED AND 
CONTAIN A READABLE COPY OF THE MFG AND USR BAD SECTOR FILES. 


2.5 PREREQUISITE DIAGNOSTIC PROGRAMS 


RMO5/3/2 DISKLESS TEST, PART 1 & 2 
RMO5/3/2 FUNCTIONAL TEST, PART 1 & 2 


3.6 OPERATING PROCEDURE 
3.1 LOADING 
THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 


-PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE . 
-XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 


THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
OF THE PROGRAM. 


SW15 HALT ON ERROR 
SwW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 
SW13 pet ERROR TYPEOUTS 


UNU 
SwW11 INHIBIT TEST ITERATIONS 
SW10 BELL ON ERROR 
SWO9 LOOP ON ERROR 
SWO8 . LOOP ON TEST IN SWO7-00 


THE LOW ORDER 8 SWITCHES (SWO7-SWOO), ARE USED IN CONJUNCTION WITH 
_— a SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 
L 


3.3 STARTING 


THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
- WILL BE THE NORMAL STARTING ADDRESS. 2 eee AT a WILL ENABLE 

RH/RM BASE ADDRESS TO BE CHANGED. IF RUNNING IN A_STAND~ALONE 
ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
TG CONTROL TEST CONDITIONS. 


re ee Oe ee re es ee ee 


SEQ 0004 
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3.4 HALTING 
THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 


NOTE: IF THE PROGRAM IS_ HALTED BY ANY OTHER MEANS, BAD HEADER 
INFORMATION MAY BE LEFT ON THE DISK PACK. THIS OF COURSE 
— ON WHICH TEST IS BEING PERFORMED AT THE TIME OF THE 


3.5 RESTARTING 
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 


THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. ALSO, A WARNING MESSAGE IS_ TYPED, 
NOTIFING THE OPERATOR OF POSSIBLE HEADER CORRUPTION IF THE PROGRAM IS 
HALTED IMPROPERLY. THE PROGRAM IDENTIFICATION AND THE WARNING DO NOT 
OCCUR IF THE PROGRAM IS RESTARTED. 


4.2 CONSOLE DIALOGUE 


WHEN THE PROGRAM IS RUNNING IN STAND ALCNE MODE, IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM 1.D. AND WARNING 
MESSAGE. (SEE SECTION 4.1) 


THE FIRST QUESTION TYPED OUT IS: ‘TYPE HELP TEXT (L) N ?"’. 
IF THE OPERATOR RESPONDS WITH A ‘'Y’', THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE 
TO THE QUESTION IS CONSIDERED A ‘N'' AND NO HELP TEXT IS TYPED. THIS 
QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
SUBSEQUENT START-UP'S. 


ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204, 
THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 
DIALOGUE. 

EXAMPLE 1 


RMCS1=176700 <CR> ;NO CHANGE IN ADDRESS 
RMVEC=000254 <CR> ;NO CHANGE IN ADDRESS 


EXAMPLE 2 


RMCS1=176700 177200<CR> ; CHANGE BASE ADDRESS TO 177200 
RMVEC=000254 260<CR> ; CHANGE VECTOR ADDRESS TO 260 
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ON THE INITIAL START, THE NEXT QUESTION TYPED IS, ‘TYPE ‘‘A’’ TO 
TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH 
A CARRIAGE RETURN'. THEN, 'DRIVE(S):' IS TYPED AND WAITS FOR THE 
OPERATOR TO TYPE AN ‘'A'', TO TEST ALL POSSIBLE DRIVES OR TYPE ANY 
STRING OF DRIVE NUMBER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A 
“CARRIAGE RETURN''. NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 
STARTS, ONLY THE ‘DRIVE(S):" PROMPT IS TYPED. 


THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
IS AN EXAMPLE PRINTOUT: 


"UNIT STATUS 


LOAD DEVICE 
OFFLINE RMO5 
NOT PRESENT 

NOT PRESENT 

NOT AN RM05/3/2 
NOT PRESENT 

NOT PRESENT' 


THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 WILL BE TESTED, WHILE DRIVES 
1 - 7 WILL NOT BE TESTED. 


THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE 
STATUS OF THE DRIVE: 


"DRIVE(S) TO BE TESTED, Q° 


IF NO DRIVES ARE AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE WiLL BE 
TYPED TO THE OPERATOR: 


"DRIVE(S) TO BE TESTED, NONE’ 


THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES ~ eae FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT 


ONCE THE DRIVES START ttn THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO BE TESTED 


"DRIVE 0’ 


AFTER ALL THE DRIVES ARE COMPLETELY TESTED, THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 


NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 
rl a REQUIRED BY THE USER, D=DECIMAL, O=OCTAL AND 
L= : 


NOUS WN © 


4.3 PROGRESS REPORTS 


SEQ 0006 
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AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 


"END OF PASS 2" 


THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
THE LAST END OF PASS REPORT. 


"TOTAL ERRORS SINCE LAST REPORT 0° 


4.4 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.5 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 
THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF _ THE 
UNIT (DRIVE) BEING TESTED, THE DRIVE TYPE, THE TEST NUMBER, THE ERROR 
NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT 
WHICH GIVE A BRIEF. YET COMPREHENSIVE DESCRIPTION OF THE ERROR. THE 
ERROR MESSAGE IS NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES 
CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING 
EXPECTED AND ACTUAL TEST RESULTS. 
THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM: 
DRVA 0 - RMO3S, TEST# 14, ERR# 326, PC=016654 


MASSBUS DATA BUS PARITY ERROR ‘MDPE'' (RMCS2, BIT 8) DETECTED 
cio a COMMAND ‘ 


S RMCS2_ = RMDS RMER2 RMAS 
144252 040700 010700 990000 000000 000000 
RMWC RMBA RMDA RMDC MEC1 RMEC2 
177403 104604 000002 610000 000000 004066 000000 
RMMR 1 RMMR2 = RMDT RMSN 
000010 011777 024026 177777 
4.7 EXECUTION TIME 


TIME FOR RMO5: 
PASS 1 OF THE PROGRAM TAKES ABOUT 15 SECONDS. PASS 2 AND 
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SUBSEQUENT PASSES TAKE 1 MINUTES 10 SECONDS. 
TIME FOR RMO2/3: 


PASS 1 OF THE PROGRAM TAKES ABOUT 6 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 40 SECONDS. 


5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 


THE RMO5/3/2 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PDP-11 
PROCESSOR, PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
MET, AND PROVIDING THAT DATA THROUGHPUT ON Tre SYSTEM IS SUFFICIENT TO 
SUSTAIN DATA TRANSFER OPERATIONS. 


5.2 DUAL PORT CONFIGURATIONS 


= RMO5/3/2 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST 

ORT LOGIC IN THE RMOQ5/3/2 ADAPTER BUT IS_ EXECUTABLE ON 

RMOS/3/2. SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL 
PORT SWITCH IS SET TO THE APPROPRIATE PORT (A OR B)?. 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RMOS/'3/2 SUSBYSTEM FUNCTIONAL TEST. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RMO5/3/e 
SUSBYSTEM FUNCTIONAL TEST. CAPABILITIES OF THE MASSBUS CONTROLLER. 


5.5 ACT11, APT11 COMPATIBILITY 


THE RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 
AND APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM 
Shite Ae A .QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK 


5.6 XXDP COMPATIBILITY 


yp Big og SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP_IN 
DUMP AIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RMOS/3/2 1S THE XXDP LOADING DEVICE. 
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Daf 


6.0 


TEST 


TEST 


OPERATING SYSTEM COMPATIBILITY 
THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 


TEST DESCRIPTiON 


1 CONTROLLER ACCESS TEST 
PURPOSE : 


TO VERIFY THAT THE UNIBUS ADDRESS OF THE SUBSYSTEM IS 
CORRECT, AS DEFINED AT LOCATION $BASE. 


PROCEDURE : 


THE TEST TRIES TO ACCESS ALL MASSBUS CONTROLLER REGISTERS 
USING THE S$BASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING 
THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY 
REGISTER TRANSFER. 


IF THE TEST FAILS AND THE PROGRAM IS RUNNING IN A_ STAND 
ALONE ENVIRONMENT, I.E., LOCATION 42 IS 0, THE PROGRAM WILL JUMP 
TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE S$BASE 
ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES 10 
THE END OF PASS HANDLER. 


¢ = WRITE/READ DATA TESTS 
PURPOSE : 


TO *TEST WRITE DATA AND READ DATA FUNCTIONALITY OF THE 
RMO5/3/2 SUBSYSTEM USING A SET OF VARIABLES WHICH INCLUDE WORD 
COUNT, HEAD MOTION, HEAD SWITCHING AND ERROR CONDITIONS. 


PROCEDURE : 


ALTHOUGH EACH TEST EXERCISES A DIFFERENT VARIABLE, THE 
GENERAL PROCEDURE OF EACH TEST JS _ THE SAME. THE DR ive IS 
INITIALIZED AND RECALIBRATED IF ‘PIP’ OR ‘'SKI"* ARE ACTIVE SO THAT 
THERE ARE NO ERRORS WHEN A TEST BEGINS. ya THE TEST FORMATS 


SECTOR IS LISTED IN THE BAD BLOCK TABLE OF THE LAST _ TRACK. 
FOLLOWING THAT, THE TEST PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR 


CZRMOBO RMOS/3/2 FCINL TST 3 


TEST 


TEST 


TEST 


TEST 
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THE CONDITIONS OF THe TEST. REGISTERS ARE PRESET AND THE WRITE 


DATA COMMAND IS EXECUTED. WHEN THE WRITE COMMAND IS COMPLETE, 
THE TEST STORES ALL SUBSYSTEM STATUS AND CHECKS FOR PRIMARY 
ERRORS WHICH PRECLUDE OTHER STATUS CHECKS. IF THERE ARE NO 
PRIMARY ERRORS, THE TEST VERIFIES THE RESULTS OF THE WRITE 
COMMAND AND THEN CHECKS FOR SECONDARY ERRORS. LOOP ADDRESSES ARE 
MODIFIED FOLLOWING THE SUCCESSFUL COMPLETION OF "HE WRITE COMMAND 
IN ORDER TO SHORTEN EXECUTION TIMES AND ENHANCE SCOPING LOOPS, 
THEN THE PROGRAM EXECUTES THE READ DATA PORTION OF THE TEST, 
VERIFYING THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND. 


NOTE: THE SECTOR USED DURING A TEST MAY DIFFER FROM THE PROGRAM 


LISTING BECAUSE THE PROGRAM SUBSTITUTES A GOOD SECTOR, IF 
THE ONE SELECTED IS LISTED IN THE BAD BLOCK TABLE. 


2 WRITE, READ ZEROS TEST 


THE TEST WRITES AND READS AN ALL ZEROS DATA FIELD, CAUSING 
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS. 


3 WRITE, WRITE CHECK ZEROS TEST 


THE TEST WRITES AND WRITE CHECKS AN ALL ZEROS DATA FIELD, 
VERIFYING THAT THERE ARE .0 ERRORS. 


4 WRITE, WRITE CHECK ZEROS W/ WCE ERROR TEST 


THE TEST WRITES AN ALL ZEROS DATA FIELD, THEN COMPLEMENTS 
EACH BIT IN THE LAST WORD OF THE WRITE BUFFER. A WRITE CHECK 
COMMAND IS EXECUTED AND THE TEST VERIFIES THAT THE CORRECT WRITE 
CHECK ERROR IS DETECTED. 


5 WRITE, READ ONES TEST 


THE TEST WRITES AND READS AN ALL ONES DATA FIELD, CAUSING 
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS. 


ES TT SA a sete ANS sh hs eh tte - 


SEQ 0010 
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TEST 6 WRITE, WRITE CHECK ONES TEST 


TEST 


TEST 


TEST 


TEST 


THE TEST WRITES AND WRITE CHECKS AN ALL ONES DATA FIELD. 


7 WRITE, WRITE CHECK ONES W/ WCE ERROR TEST 


THE TEST WRITES AN ALL ONES DATA FIELD, THEN PERFORMS A 
WRITE CHECK DATA COMMAND AFTER COMPLEMENTING EACH BIT IN THE LAST 
WORD OF THE WRITE BUFFER. THE TEST VERIFIES THAT THE CORRECT 
WRITE CHECK ERROR IS DETECTED. 


10 WRITE, WRITE CHECK MULTIPLE SECTORS TEST 


THE TEST SEEKS TO CYLINDER 0 TO INSURE THERE IS NO HEAD 
MOTION DURING DATA TRANSFER. _ THE WRITE DATA COMMAND FOLLOWS, 
WITH THE WORD COUNT EQUAL TO MULTIPLE SECTORS. THE SAME SECTORS 
ARE VERIFIED WITH A WRITE CHECK DATA COMMAND. 


11 WRITE, READ WITH IMPLIED SEEK TEST 


THIS TEST SEEKS TO THE LAST CYLINDER PRIOR TO WRITING DATA 
ON CYLINDER 0, TRACK 0, SECTOR 0. THE EXPLICIT SEEK INSURES THAT 
THERE WILL BE MAXIMUM HEAD MOTION DURING THE IMPLIED SEEK GF THE 
WRITE COMMAND. THE SAME OPERATION, INCLUDING THE EXPLICIT SEEK 
IS REPEATED FOR READ DATA. 


12 WRITE, WRITE CHECK WITH HEAD SWITCHING TEST 


THE TEST wep TO chee te TO a THERE IS NO HEAD 
MOTION DURING DATA TRANSFER. © WRITE DATA COMMAND STARTS WITH 
CYLINDER 0, TRACK 0, SECTOR 31! ME WORD COUNT IS EQUAL [0 


MULTIPLE SECTORS WHICH CAUSES THe SUBSYSTEM TO SWITCH FROM TRACK 


0 TO TRACK 1 AFTER THE FIRST OF THE MULTIPLE SECTORS ARE WRITTEN. 
THE SAME SECTORS ARE VERIFIED WITH A WRITE CHECK DATA COMMAND, 
USING THE SAME WORD COUNT AND STARTING SECTOR. 


8 ns = ee | ae em rete es es em ee — 


SEQ 0011 
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13 WRITE, WRITE CHECK WITH MID-TRANSFER SEEK TEST 


THIS TEST WRITES MULTIPLE SECTORS STARTING WITH CYLINDER O, 
LAST TRACK AND SECTOR 31., CAUSING A MID-TRANSFER SEEK AFTER THE 
FIRST SECTOR IS WRITTEN. THE SAME SECTORS ARE VERIFIED WITH A 
WRITE CHECK DATA COMMAND. 


14 WRITE, READ W/ HCE ERROR TEST 


A SECTOR IS FORMATTED WITH AN INCORRECT HEADER, THEN THE 
TEST WRITES AND READS DATA FROM THE SECTOR AND VERIFIES THAT THE 
CORRECT ERROR IS DETECTED. w? BIT POSITION OF BOTH HEADER 
WORDS IS TESTED IN THIS MANNER 


15 WRITE, READ W/ HCI TEST 


A SECTOR IS FORMATTED WITH AN INCORRECT HEADER, THEN WRITTEN 
AND READ WITH HEADER COMPARE INHIBITED. THE TEST VERIFIES THAT 
NO ERROR IS DETECTED. 


16 WRITE, READ W/ IVC ERROR TEST 


VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 
MODE. THE TEST THEN EXECUTES A WRITE DATA COMMAND AND VERIFIES 
Mecrad paced COMMAND STATUS SETS. THE TEST IS REPEATED FOR READ 


17 WRITE, READ W/ ABORT TEST 
THE taal SETS AN ERROR IN THE ERROR REGISTER AND EXECUTES A 


WRITE DATA COMMAND VERIFYING THAT ‘PIP’’ REMAINS INACTIVE. THE 
SAME PROCEDURE IS USED FOR READ DATA COMMAND. 


20 WRITE, READ EACH CURRENT LEVEL TEST 


THE TEST WRITES AND READS ON EACH OF THE FOLLOWING CYLINDERS 
IN ORDER TO WRITE AT EACH POSSIBLE CURRENT THRESHOLD. 


SE ee ee ne en ee am 
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CYLINDER 


SSSSSSy 


0 
ee 25 
ee 38 
= 31 
ee 64 


21 WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING TEST 
THE TEST WRITES 2 SECTORS STARTING WITH THE LAST SECTOR OF 
CYLINDER 383. THE FIRST SECTOR IS WRITTEN AT ONE CURRENT LEVEL 


AND THE SECOND SECTOR IS WRITTEN AT ANOTHER CURRENT LEVEL. BOTH 
SECTORS ARE VERIFIED WITH A WRITE CHECK DATA COMMAND. 


22 WRITE, READ EARLY PEAK SHIFT TEST 


THIS TEST WRITES AND READS A SINGLE SECTOR USING A _ DATA 
PATTERN DESIGNED TO INTRODUCE EARLY PEAK SHIFT. 


23 WRITE, READ MIXED PEAK SHIFT TEST 
THIS TEST WRITES AND READS A_ SINGLE 2 aa USING A DATA 


PATTERN DESIGNED TO INTRODUCE MIXED PEAK SHIF 


TEST 


TEST 


24 WRITE, READ EACH TRACK TEST 


THE TEST WRITES AND READS WITH EACH HEAD USING A MIX OF 
ARLY, NORMAL AND LATE WRITE GATES. 


25 READ, WRITES CHECK MULTIPLE SECTORS IN OFFSET MODE TEST 
THE TEST EXECUTES READ DATA AND WRITE CHECK DATA COMMANDS IN 


OFFSET MODE IN BOTH OFFSET DIRECTIONS WITH THE TRANSFER SIZE OF 


TWO SECTORS AT A TIME. 


i ne te ee te ee ee me me ae 


SEQ 0015 


> — - - ———e ee ee ree re ee ee | - —_ ee ee eee ae ee — oe eC _—_-— — 


: B 2 
/ CZRMOBO RMOS/3/2 FCTNL TST 3 MACRO V04.00 4-APR-81 01:15:59 PAGE 3-11 SEQ 0014 
= sey ; 


| CZ7RMOBO RMOS/3/2 FCINL TST 3 


: 
479 
480 


oo 


481 


482 


485 
484 


ww. 
MACRO V04.00 4-APR-81 01:15:59 PAGE 4 


:*LAST REVISION 04-APR=-81 


-TITLE CZRMCBO < lhad FCTNL TST 3 
:*COPYRIGHT (C) 1981 

:*DIGITAL EQUIPMENT eo 

: *COLORADO SPGS., CO. 80919 


: sPROGRAM BY MIKE LEAVITT 


S STHIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
: *PACKAGE (MAINDEC=11=DZQAC-C5), 18-MAR~81 


* SBTTL OPERATIONAL SWITCH SETTINGS 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
UNUSED 

INHIBIT ITERATIONS 
BELL ON ERROR 

LOOP ON ER 


ROR 
LOOP ON TEST IN SWR<7:0> 
bd 


eoeeneee eee eee eae aa ae 


ODO NIWWEUIANWOO NWF 


-SBTTL BASIC DEFINITIONS 
: * INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK 1100 


ERROR EMT ;sBASIC DEFINITION OF ERROR CALL 
SCOPE IOT ;;BASIC DEFINITION OF SCOPE CALL 


aaa: hata DEF INI TIONS 
;:;CODE FOR HORIZONTAL TAB 
UF 12 :CODE FOR LINE FEED 


CR = 15 : CODE FOR CARRIAGE RETURN 

CRLF = 200 E FOR CARRIAGE RETURN-LINE FEED 
atu ‘ie = 177776 : SPROCESSOR STATUS WORD 

STKLMT = 177774 +s STACK LIMIT REGISTER 

PIRQ = 177772 :PROGRAM INTERRUPT REQUEST REGISTER 
DSWR = 177570 > ;HARDWARE SWITCH REGISTER 

DDISP = 177570 ;;HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEFINITIONS 

RO = £0 ;;GENERAL REGISTER 

R1 = 41 : GENERAL REGISTER 

R2 = ke ;GENERAL REGISTER 

R3 = > GENERAL REGISTER 





_— ae em rm ee 


SEQ 0015 


Dé 
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| €ZRMOBO 
BASIC DEFINITIONS SEQ 0016 
000004 RS = %4 3: GENERAL REGISTER 
000005 R5 = 35 :;GENERAL REGISTER 
000006 R6 = %6 7; GENERAL REGISTER 
000007 R7 = £7 :;GENERAL REGISTER 
000006 SP = %6 ::STACK POINTER 
000007 PC = 37 : PROGRAM COUNTER 
:*PRIORITY LEVEL DEFINITIONS 
PRO = 0 : PRIORITY LEVEL O 
0 0 PR1 = 4 : PRIORITY LEVEL 1 
000100 PR2 = 100 > :PRIORITY LEVEL 2 
000140 PR3 = 140 : :PRIORITY LEVEL 3 
000200 PR4 = 200 ::PRIORITY LEVEL 4 
000240 PR5 = 240 : sPRIORITY LEVEL 5 
000300 PR6 = 300 : :PRIORITY LEVEL 6 
340 PR7 = 340 ::PRIORITY LEVEL 7 
:*'"SWITCH REGISTER’’ SWITCH DEFINITIONS 
100000 Sw15 = 100000 
040000 SwW14 = 40000 
020000 Sw13 = 20000 
010000 SWwi2 = 10000 
004000 Sw11 = 4000 
002000 Sw10 = 2000 
001000 SwO09 = 1000 
000400 Sw08 = 400 
000200 Sw07 = 200 
000100 SWw06 = 100 
000040 Sw05 = 40 
000020 SW04 = 20 
000010 Sw03 = 10 
000004 SwO02 = 6 
000002 Sw01 = 2 
000001 SWwO0 ee | 
001000 SW9=Sw09 
000400 Sw8= 
000200 SW7=Sw07 
000100 SW6= 
000040 SW5=SW05 
000020 W4=S 
000010 Sw3=Sw03 
000004 SW2=SW02 
000002 SW1=SWO01 
000001 SwO= 
:*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BIT15 = 100000 
040000 BIT14 = 40000 
020000 BIT13 = 20000 
010000 BIT12 = 10000 
004000 BIT11 = 4000 
2000 BIT10 = 2000 
001000 BITO9 = 1000 
00 BITO8 = 400 
000200 BITO7 = 200 
000100 BIT06 = 100 
000040 BITOS = 40 
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BASIC DEFINITIONS 


Ft RP gir a annem ae eas Saas, nae 
SEES => seen _— 
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;*BASIC *‘CPU"' TRAP VECTOR ADDRESSES 


= 20 
BITO3 = 10 
BIT02 =4 
BITO1 =e 
1T00 1 
BIT9=B1T09 
BIT8=B1T08 
BIT7=BITO7 
BIT6=BIT06 
BIT5=B1TO5 
BIT4=BIT04 
BIT3=BI1T03 
BIT2=BITO2 
BIT1=BI1TO1 
BITO=BI TOO 
ERRVEC = 4 
SVEC = 10 
TBITVEC = 14 
TRIVEC = 14 
BPTVEC = 14 
IOTVEC = 20 
VEC = 24 
EMTVEC = 30 
TRAPVEC = 34 
TKVEC = 60 
TPVEC = 64 
PIRQVEC = 240 
. SBTTL 
7 *RMCS1 
DVA = BIT11 
F4 = BITOS 
F3 = BITO4 
F2 = BITOS 
F1 = BITO2 
FO = BITOT 
GO = BITOO 
FNCMSK = 77 
: FUNCTION 
= 000000 
ILFO2 = Q00002 
SEEK = 000004 
RECAL = 000006 
DRVCLR = 00001 
RLEASE = 000012 
OFFSET = 000014 
RTC = 00001 
RIP = 00002 
PAKACK =.000022 
PACACK = PAKACK 
ILF24 = 000024 
ILF26 §== 000026 


RM REGISTER BIT 


:TIME OUT AND OTHER ERRORS 

: RESERVED AND ILLEGAL INSTRUCTIONS 
=: TRACE TRAP 

> ;BREAKPOINT TRAP (BPT? 

i: INPUT/QUTPUT TRAP (JOT) **SCOPE** 


AIL 
i SEMULATOR. TRAP (EMT) **ERROR** 
TRAP TRAP 


SS TTY KEYBOARD VECTOR 
sa ity PRINTER VECTOR 
> :PROGRAM INTERRUPT REQUEST VECTOR 


DEF INITIONS 


CONTROL STATUS REGISTER 


;DEVICE AVAILABLE~READ ONLY 
UNCTION CODE 


sFUNCTION CODE 
360 BI 
:FUNCTION CODE MASK 


CODES (BITS 01-05 OF RMCS1) 
sNOP C 


OMMAND 
: ILLEGAL COMMAND 
K COMMAND 


‘RECAL IBRATE COMMAND 
:DRIVE CLEAR COMMAND 
:RELEASE COMMAND 


OFFSET COMMAND 

;RETURN TO CENTERLINE COMMAND 
;READ IN PRESET COMMAND 

;PACK ACKNOWLEDGE COMMAND 


; ILLEGAL COMMAND 
; ILLEGAL COMMAND 


Oe ee ene me ee 


SEQ 0017 


- CZRMOBO RMOS/3/2 FCINL TST 3 
| RM REGISTER BIT DEFINITIONS 


513 000030 
516 000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
517 000050 
518 000052 
519 000054 
520 000056 
521 000060 
522 000062 
523 000064 
526 000066 
525 000070 
526 000072 
527 000074 
528 000076 
529 
530 
531 
532 
533 010000 


| 
| 
c 
5 
536 
537 000400 
538 
539 
540 000020 
| 


a 
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SEARCH = 000030 
ILF30 = 000030 
ILF32 = 000032 
ILF34 = 00003 

ILF36 = 000036 
ILF4Q0 = =_: 000040 
ILF42 = =_ 000042 
ILF44 = 000044 
ILF46 == 000046 
wCD = 000050 
WCH = 00005 

ILF54 = 000054 
ILF56 = 000056 
wD = 00006 

WH = 00006 

ILF64 = 000064 
ILF66 = 000066 
RD = 000070 
RH = 000072 
ILF74 = 000074 
ILF76. = 00007 


>*RMDA DISK ADDRESS REGISTER 
; TRACK wig ss DEFINITIONS 
6 BITIe 


TAI = 
TA8 = BIT11 
TAS = BIT10 
TA2 = BITO9 
TA = BITO8 
;SECTOR ADDRESS DEFINITIONS 
SA16 = BITO4 
SA8 = BITOS 
SA4 = BITO2 
SA2 = BITO1 
SAI = BITOO 
; TRACK & SECTOR MASKS 
TADMSK = 177400 
SADMSK = 000377 
:*RMDS DRIVE STATUS REGISTER 
ATA = BIT15 
ERR = BIT14 
PIP = BIT13 
MOL = BITi2 
WRL = BIT11 
LBT = BIT10 
PGM = BITO9 
DPR = BITO8 
DRY = BITO? 
VV = BIT06 
OM = BITOO 


:*RMER1 ERROR REGISTER #1 


ee RN 


:SEARCH COMMAND 

> ILLEGAL COMMAND 

; ILLEGAL COMMAND 

; ILLEGAL COMMAND 

; ILLEGAL COMMAND 

; ILLEGAL COMMAND 

SILL COMMAND 

; ILLEGAL COMMAND 

; ILLEGAL COMMAND 

;sWRITE CHECK DATA COMMAND 

;WRITE CHECK HEADER AND DATA 
LEGAL COMMAND 


s ILLEGAL C 

:WRITE DATA COMMAND 

;WRITE HEADER AND DATA COMMAND 
OMMAND 


A COMMAND 
READ HEADER AND DATA COMMAND 
ILLEGAL COMMAND 
; ILLEGAL COMMAND 


| ; TRACK ADDRESS a 


; TRACK ADDRESS 1 


zSECTOR ADDRESS 16. 
:SECTOR ADDRESS 8. 
;SECTOR ADDRESS 4 
;SECTOR ADDRESS 2 
;SECTOR ADDRESS 1 


: TRACK ADDRESS MASK 
;SECTOR ADDRESS MASK 


sATTENTION ACTIVE 

: COMPOSITE ERROR 

:POSITIONING IN PROGRESS 
DIUM ON LINE 


URITE LOCK 
“LAST BLOCK TRANSFERRED 
PROGRAMMABL 


; E 
sDRIVE PRESENT 


: DRIVE og! 
> VOLUME VALID 
OFFSET MODE ACTIVE 


SEQ 0018 


= eo - meee se we eee - —— ane = 


a ee 
ee LO at oe SRS cs Ne e 
EE Le - 
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RM REGISTER BIT DEFINITIONS 


565 

566 100000 

567 040000 

568 020000 

569 01000 

570 004000 

571 002 

372 001000 

573 0004 

574 000200 

575 000100 

576 000040 

$77 000020 

578 000010 

579 000004 

580 000002 

581 000001 

582 

583 115760 

584 

585 

586 

587 

388 

589 000377 

590 

591 

592 

593 002000 
001000 

595 000400 

596 000200 

597 000100 

598 

599 003700 

600 

601 

602 

603 

604 100000 

605 040000 

606 020000 

607 010000 

608 004000 

609 002000 

610 001000 

611 0004 

612 900200 

613 000100 

614 000040 

615 000010 

616 000004 

617 000002 

618 000001 

619 

620 

621 100000 


Ge 
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DCK = BIT15 ;DATA CHECK ERROR 
UNS = BIT14 :DRIVE UNSAFE 
OP I = B1T13 ;OPERATION INCOMPLETE 
DTE = BIT12 :DRIVE TIMING ERROR 
WLE = BIT11 ;WRITE LOCK ERROR 

IAE = BIT10 ¢ INVALID ADDRESS ERROR 
AOE = BITO9 sADDRESS OVERFLOW ERROR 
HCRC = BITO8 :HEADER CRC ERROR 
HCE = BITO? ; HEADER COMPARE ERROR 
ECH = BIT06 ;ECC ‘'HARD'’’ ERROR 
WCF = BITOS5 :WRITE CLOCK FAILURE 
FER = BIT04 iF : ERROR 
PAR = BITOS ;PARITY ERROR 
RMR = BIT02 ;REGISTER MODIFICATION REFUSEC 
ILR = BITQO1 ZILLEGAL REGISTER 

ILF = BITOO ; ILLEGAL FUNCTION 
NDTMSK = DCK!DTE!WLE!AOE!HCRC!HCE!ECH! WCF IFER 

:" NDTMSK** IS USED TO MASK ERROR REGISTER 1 DURING NON ~ DATA 
> COMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS 
>*RMAS ATTENTION SUMMARY REGISTER 
ATNMSK = 377 ;MASK FOR ATTENTION BITS 
:*RMLA LOOK AHEAD REGISTER 

SC4 = BIT10 sSECTOR COUNT = 16 

SC3 = BITO9 sSECTOR COUNT = 8 

SC2 = BITO8 :SECTOR COUNT = 4 

SC = BITO7 ;SECTOR COUNT = 2 

Sco = BITO6 :SECTOR COUNT = 1 
SCTMSK = 003700 ;SECTOR COUNT MASK 
;*RMMR1 MAINTENANCE REGISTER 41 

;WRITE ONLY BITS 

DBCK = BIT15 :DEBUG CLOCK 

DBEN = BIT14 ;DEBUG CLOCK ENABLE 
DEBL = BIT13 : DIAGNOSTIC po OF BLOCK 
DTO = BITI2 [DIAGNOSTIC TIMEOUT 
MCLK = BIT11 ;MAINTENANCE CLOCK 

MRD = BIT10 ;READ DATA 

MUR = BITOY ;UNIT READY 

MOC = BITO8 :ON CYLINDER 

MSER = BITO7 ;SEEK €& 

MDF = BIT06 :DRIVE FAULT 

MS = BITO5 ; SECTOR PULSE 

MWP = BITO3 ;WRITE PROTECT 

MI = BITO2 ; INDEX PULSE 

MSC = BITO1 : SECTOR COMPARE 

DMD = BITOO ;DIAGNOSTIC MODE 

;READ ONLY BITS 

= BIT15 s OCCUPIED 





SEQ 0019 


ee ne 


a SEED ee eee 
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RM REGISTER BIT DEFINITIONS SEQ 0020 
622 040000 RG = BIT14 RUN AND GO 
623 020000 EBL = B]113 “END OF BLOCK 
624 010000 REX = BITI2 “EXCEPTION 
625 000 ESRC = BIT11 sENABLE SEARCH 
626 002000 PLFS = BIT10 :LOOKING FOR SYNC 
627 001000 ECRC = BITO9 ;ENABLE CRC OUT 
628 000400 PDA = BITO8 :DATA AREA 
629 000200 PHA = BITO7 sHEADER AREA 
630 000100 CONT = BIT06 * CONT INU 
631 000040 wC = BITOS ;WORD CLOCK 
632 000020 EECC = BITO4 sENABLE E T 
633 000010 MWD = BITO3 :WRITE DATA BIT 
634 LS = BITO02 LAST SECTOR 
635 000002 LST = B]TO1 LAST SECTOR AND TRACK 
636 000001 DMD = BITOO “DIAGNOSTIC MODE 
638 >*RMDT DRIVE TYPE REGISTER 
640 100000 NSA = BIT15 ;NOT SECTOR ADDRESSED = 0 
641 040000 TAP = BIT14 :TAPE DRIVE = 0 
642 020000 MOH = BIT13 “MOV ING HEAD = 1 
94 004000 DRQ = BIT11 “DRIVE REQUEST REQUIRED 
645 020024 SNGPRT = 020024 :SINGLE PORT DRIVE TYPE (RMO2) 
rte 024024 DULPRT = 024024 :DUAL PORT DRIVE TYPE (RMO2) 
“ :*RMOF OFFSET REGISTER 
650 010000 FMT16 = BIT12 :16 BIT WORD FORMAT 
651 004000 EC] = BIT11 “ECC INHIBIT 
652 002000 HCI = BIT10 “HEADER COMPARE INHIBIT 
oer 000200 OF D = BITO7 :OFFSET FORWARD 
ye :*RMDC DESIRED CYLINDER ADDRESS REGISTER 
oot 001777 CYLMSK = 001777 :MASK FOR CYLINDER ADDRESS 
ots >*RMMR2 MAINTENANCE REGISTER 42 
661 zREAD ONLY BITS 
662 100000 = BIT15 :PORT A REQUEST 
663 040000 ROB = BIT14 :PORT B REQUEST 
020000 TAG = BIT13 ;TAG CONTROL 
665 010000 TST = BITiI2 =COMMAND SEQUENCE TEST BIT 
000 CC = BIT11 =CONTROL OR CYLINDER TAG 
667 2000 CH = BIT10 “CONTROL OR HEAD TAG 
670 001000 BB09 = BITO9 “TA BUS 
00 BBO8 = BITO8 TAG BUS 
000200 BBO7 = BITO7 : TAG BUS 
000100 BBO6 = BITO06 : TAG BUS 
0 BBO5 = BITOS : TAG BUS 
000020 BB04 = BITO4 : TAG BUS 
10 BB03 = BITO3 TAG BUS 
BBO2 = BITO2 : TAG BUS 
2 BBO1 = BITO1 :TAG BUS 
000001 BBOO = BITOO : TAG BUS 


mr me es en ne ee ee . -—~_ 


LL eS LL LOL ELL LLL LAL EL ee 
rm a eee ee 


CZ7RMOBO RMOS/3/2 FCTINL TST 3 
RM REGISTER BIT DEFINITIONS 


| 682 


712 
713 
714 
715 
716 
717 
718 
719 


: *RMER2 


ILRG76 
IDXMSK 
- SBTTL 
7 *RMCS1 





ERROR REGISTER 2 


PROGRAM MNEMONICS 


RM REGISTER INDEX VALUES 


rHHnHhHnHnnHhHnnnnhkhnnnnnhnnnnnnnnane 
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BIT15 
BIT14 


77 


;MANUFACTURING DETECTED SECTOR ERROR 
;USER DETECTED SECTOR ERROR 


;CONTROL STATUS REGISTER 41 
;DISK ADDRESS REGISTER 
sDRIVE STATUS REGISTER — 
ER ROR REGISTER #1 

TTENTION SUMMARY REGISTER 


;BAD SECTOR ERROR 
;SEEK INCOMPLETE 
;OPERATOR PLUG ERROR 
; INVALID COMMAND ERROR 
;LOSS OF SYSTEM CLOCK 
:LOSS OF BIT CLOCK 
:DEVICE CHECK 

;DATA PARITY ERROR 


‘LOOK AHEAD REGISTER 


‘MAINTENANCE REGISTER 


:DRIVE TYPE REGISTER 


: SERI 
[OFFSET REGISTER 


:DESIRED CYLINDER REGISTER 
; HOLDING REGISTER 
MAINTENANCE ek a #2 


“ERROR REGISTER 


sECC POSITION REGISTER 
sECC PATTERN REGISTER 
; ILLEGAL REGIS 5 


LLEGAL REGISTER 
; ILLEGAL REGISTER 


; ILLEGAL REGISTER 


: ILLEGAL REGISTER 
LLEGAL REGISTER 
~; ILLEGAL REGISTER 


; ILLEGAL REGISTER 
; ILLEGAL REGISTER 


7MASK FOR REGISTER INDEX NUMBER 


RH CONTROLLER REGISTER BIT DEFINITIONS 
CONTROL STATUS REGISTER #1 


; SPECIAL a ONL Y 


: TRANSFER ERR 


=MASSBUS CONTROL BUS PARITY ERROR-READ ONLY 


:PORT B SELECT 


ee ae ee ee ee ee 


AL NUMBER REGISTER 


SEQ 0021 


—— 
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RH CONTROLLER REGISTER BIT DEFINITIONS SEO 0022 
720 001000 Al? = BITOS : ADDRESS EXTENSION 
721 000400 A16 = BITO8 “ADDRESS EXTENSION 
722 000200 RDY = BIT07 *READY=READ ONLY 
| 723 000100 IE = BITO6 “ INTERRUPT ENABLE 
! 725 :*RMCS2 RH CONTROL STATUS REGISTER #2 
| 727 100000 DLT = BIT15 :DATA LATE=READ ONLY 
728 040000 WCE = BIT14 “WRITE CHECK ERROR-READ ONLY 
729 02 UPE = BIT13 “UNIBUS PARITY ERROR 
730 010000 NED = BIT12 “NONEXISTANT DRIVE-READ ONLY 
731 004000 NEM = BIT11 “NONEXISTANT MEMORY=READ ONLY 
732 002000 PGE = BIT10 “PROGRAM ERROR=READ ONLY 
733 001000 MXF = BITOS “MISSED TRANSFER 
734 000400 MDPE = BITO8 2 SBUS DATA BUS PARITY ERROR-READ ONLY 
735 000200 = BITO7 ‘QUTPUT READY-READ ONLY 
736 0001 IR = BITO6 “ INPUT READY=READ ONLY 
737 000640 CLR = BITOS [CONTROLLER CLEAR 
7 000020 PAT = BITO4 “PARITY TEST 
739 000010 BAI = BITO3 “UNIBUS ADDRESS INCREMENT INHIBIT 
742 000004 U2 = BITO2 “UNIT SELECT 
000002 UI = BITO1 “UNIT SELECT 
Pa 000001 U0 = BITOO “UNIT SELECT 
7b UNIT SELECT MASK 
746 000007 UNTMSK = 7 :UNIT SELECT MASK 
Sep >*RMCS3 RH70 CONTROL STATUS REGISTER #3 
750 100000 APE = BIT15 :ADDRESS PARITY ERROR 
751 040000 DPEH! = B1114 “DATA PARITY ERROR HIGH WORD 
752 020000 DPELO = BIT13 :DATA PARITY ERROR LOW WORD 
753 010000 WCEH] = BITI2 WRITE CHECK ERROR HIGH WORD 
754 004000 WCELO = BIT11 “WRITE CHECK ERROR LOW WORD 
755 002000 DBL = BIT10 ‘DOUBLE WORD TRANSFER 
756 000100 IE = BITO6 : INTERRUPT ENABLE 
757 000010 IPCK3 = BITO3 ‘INVERT PARITY CHECK 
758 000004 IFCK2 = BITO2 “INVERT PARITY CHECK 
759 000002 IPCK1 = BITOI “INVERT PARITY CHECK 
760 000001 IPCKO = BITOO “INVERT PARITY CHECK 
76¢ _SBTTL RH CONTROLLER REGISTER INDEX VALUES 
76h 006000 RMCS1 = 00 :CONTROL, STATUS REGISTER #1 
765 000002 RMWC 82 = 02 “WORD COUNT REGISTER 
766 000004 RMBA = 04 “BUS ADDRESS REGISTER 
767 000010 RMCS2 = 10 “CONTROL, STATUS REGISTER #2 
768 000022 RMDB C= “DATA BUFFER 
769 000050 RMBAE = 50 “BUS ADDRESS EXTENSION 
| 770 000052 RMCS3 = 52 “CONTROL, STATUS REGISTER #3 
772 176700 ABASE = 176700 :UNIBUS ADDRESS 
773 120254 AVECT1 = 120254 “UNIBUS VECTOR ADDRESS AND PRIORITY 





LLL LOLOL ELL Ee NO ee ii te te i i tl Al A 


—— ee ee 
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ae 
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— TRAP CATCHER SEQ 0023 


1 -SBTTL TRAP CATCHER 


000000 =0 

*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT’’ 
* «SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
:*LOCATION, 0 CONTAINS O TO CATCH IMPROPERLY LOADED ‘““TORS 


(000174 = 
000174 000000 DISPREG: .WORD 0 : SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD 0 «SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
, 000200 000137 005432 JMP aASTART :: JUMP TO STARTING ADDRESS OF PROGRAM 
3 000204 000137 005422 IMP QASTARTI :CHANGE RH/RM BUS ADDRESS 
5 .SBTTL ACT11 HOOKS 
TTT TT ETTTTTTTTTTTTTTTTTT TELL TET LETT LETT LET LECT LETT 
=HOOKS REQUIRED BY ACT11 
000210 $SVPC=. :SAVE PC 
000046 .=46 
000046 037242 $ENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
000052 000000 -WORD 0 i2)SET LOC . 52 TO ZERO 
: 000210 -=$SVPC *: RESTORE P 
? 001100 .=1100 
B “SBTTL APT PARAMETER BLOCK 
5 TRAE AAKERREEEEEEEAAEREREAEERRAEREREAERERAERAAERRERERRERERREEREEEEE 
“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
SL EAA AEERERAREERAREKRAEAEAEEAEERAAAARAEAAAAAEAEAKEEAEEREREEEEERERREEEEE 
001100 .$X=. | ::SAVE CURRENT LOCATION 
000024 -=24  3;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 *FOR APT START UP 
000044 =44 ; POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001100 SAPTHDR ::POINT TO APT HEADER BLOCK 
001100 .=.$X ::RESET LOCATION COUNTER 
5 LEAKE EREREREAEEEERRHEAEEERERRAEEEREREAEAERAEEKEARAERERARRERREREAREER 
“SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
> INTERFACE SPEC. 
001100 S$APTHD: 
001100 000000 $HIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
001102 001222 $MBADR: .WORD $MAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 
001104 000006 $TSTM: .WORD 6 = RUN TIM OF LONGEST TEST 
001106 000006 $PASTM: .WORD 6 ;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
001110 000006 SUNITM: .WORD 6 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
: 001112 900042 nti “WORD SETEND-SMAILY 2 *sLENGTH MAILBOX-E TABLE (WORDS) 


| C 
| ¢ 


| 
| 
| 


eee Se SSsn-stssstsesssssb-seee 
Deseteeeeemeenemeeneeen dee 


0 


SS888333333sssss 
RESSRENIERRVS Sa ee 


000000 


ZRMOBO RMOS/3/2 FCTNL TST 3 
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377 


000 


377 
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-SBTTL COMMON TAGS 


SF RAAARAAAAAAARERAAARAAAAAERAAAAARAAARAARRAHAAARRARKERHE ARE 


> x THIS 
; USED 


SCMTAG: 


SAUTOB: 


SQUES: 
SCRLF : 
SUF : 


elelelelelelelelelel lel el ele) ele) ea) 


U0" 
we 
oD 
Uv 


as athe Std 


$207><377><377> 3: 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


. = TAGADR 


:zSfART OF COMMON TAGS ‘ 
;;CONTAINS THE TEST NUMBER 

3 ERROR FLAG 

;; CONTAINS SUBTEST ITERATION COUNT 

Sa SC ADDRESS 


;;CONTAINS TOTAL ERRORS DETECTED 
;;CONTAINS ITEM CONTROL BYTE 


:sCONTAINS MAX. ERRORS PER TEST 
7s CONTAINS PC OF LAST ERROR olla 
Bh alles pn th OF *GOOD* DAT 


DRESS OF ‘BAD* DATA. 
TA 


; ;RESERVED--NOT TO BE USED 


3 sAUTOMATIC MODE INDICATOR 
;s INTERRUPT MODE INDICATOR 


;zADDRESS OF SWITCH REGISTER 
‘reas OF DISPLAY REGISTER 
:;TTY KBD STATUS 
:zTTY KBD BUFFER 
::TTY PRINTER STATUS REG. ADDRESS 
oa TTy PRINTER BUFFER REG. ADDRESS 
ONTAINS NULL CHARACTER FOR FILLS 
«CONTAINS # OF FILLER CHARACTERS REQUIRED 


Beall FILL CHARS. AFTER A ‘LINE FEED 


3‘ "TERMINAL AVAILABLE’* FLAG (BIT<07>=0=YES) 


: USER DEF INED 

;;MAX. NUMBER OF ITERATIONS 
Bh bag | ON ERROR ADDRESS 
E FOR BELL 


sQUESTION MARK 
; : CARRIAGE RE TURN 
LINE FEED 


SAARI SIIOIIOUIOISIIOISIICIOIUICISIISIUIOIOISOIO IOI OTS ISIGOISESIIEEIGIEGIEE 


-SBTTL APT MAILBOX-E TABLE 


5 EERE EREREE ERE EERE EEE EEREKRERAE EERE EERE RAE RARER EERE REE 


S$TESIN: 


. WORD 
. WORD 





AMSGTY 
AF ATAL 
ATESTN 


::APT MAILBOX 

3 MESSAGE TYPE CODE 
37FATAL ERROR NUMBER 
3; TEST NUMBER 


me ~ ee 


SEQ 0024 


~ CZRMOBO RMOS/3/2 FCINL TST 3 


ee ee eee —_—_— ———— ee — - —~— -_ > 
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' APT MAILBOX-E TABLE SEQ 0025 
1230 000000 $PASS: .WORD APASS -- ;;PASS COUNT 
001232 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
1234 000000 SUNIT: .WORD UNIT 3: IT ER 
1236 000000 SMSGAD: .WORD GAD ;;MESSAGE ADDRESS 
001240 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
001242 SETABLE: :;APT ENVIRONMENT TABLE 
001242 000 SENV: -BYTE AENV i ov eee BYT 
001243 000 SENVM: .BYTE NVM 7 ENVIR S 
001244 000000 SSWREG: .WORD ASWREG ;;APT SuITCH "REGISTER 
001246 000000 SUSWR: .WORD AUSWR ; USER SWITCHES 
001250 000000 $CPUOP: .WORD ACPUOP Ai te 15-112 sou TYRE 
** = 
:* 1/04=01,11/05=02,11/20=93,11/40=04,11/45=05 
:* 1 1/70=06,PD0=07, Q=10 
:* BIT 10=REAL TIME CLOCK 
:* BIT at EE Re POINT PROCESSOR 
;* BIT 8=MEMOR GEMENT 
001252 000 $MAMS1: .BYTE AMAMS1 = ;;HIGH ADDRESS,M.S. BYTE 
001253 000 SMTYP1: .BYTE AMTYP1 ;:;MEM. TYPE ,BLKA#1 ‘ 
:* MEM.TYPE BYTE == (HIGH BYTE) 
:* 900 NSEC CORE=00 
:* 300 NSEC BIPOLAR=002 
;* 00 NSEC +) 
001254 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLK# 
2 are MEM.LAST T ADDR. =3 aves, THIS WORD AND LOW OF ‘’TYPE’* ABOVE 
001256 SMAMS2: .BYTE ::HIGH ADDRESS.M.S. BYTE 
001257 000 SMTYP2: .BYTE AMTYP2 :3MEM. TYPE ,BLK#2 
001260 000000 S$MADR2: .WORD AMADR2 ;;:MEM.LAST ADDRESS,BLKA&2 
001262 000 : .BYTE  AMAMSS ; HIGH ADDRESS .M.S.BYTE 
001263 000 SMTYP3: .BYTE AMTYP3 ;:MEM.TYPE JBLKAS 
1264 000000 SMADR3: .WORD AMADR3 : MEM. LAST ADDRESS ,BLK&#3 
1266 000 SMAMS4: .BYTE AMAMS4 fe gl ADDRESS .M.S.BYTE 
001267 SMTYP4: .BYTE AMTYP4 + sMEM. T YPE ,BL 4, 
001270 : .WORD AMADR4 ;;MEM.LAST ADDRESS,BLK*#4 
001272 120254 SVECT1: .WORD AVECT1 +: INTERRUPT VECTOR#1.BUS PRIORITYA1 
001274 $VECT2: .WORD AVECT2 ;; INTERRUPT VECTOR#2BUS PRIORITY#2 
001276 176700 $BASE: .WORD E ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
000000 SDEVM: .WORD ADEVM > :DEV VICE MAP 
001302 000000 $CDW1: .WORD ACDW1 ; CONTROLLER DESCRIPTION WORDS 
304 000000 $CDW2: .WORD ACDW2 ;;CONTROLLER DESCRIPTION WORDA2 
001306 000000 $DDWO: .WORD DWO ;;DEVICE DESCRIP 
001310 000000 $DDW1: .WORD ADDW1 ;;DEVICE DESCRIPTOR. WORDA1 
001312 000000 $DDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORDA2 
001314 000000 $DDW3: .WORD ADDW3 ;;DEVICE DESCRIPTOR WORDAS 
001316 000000 $DDW4: .WORD ADDW4 ;;DEVICE DESCRIPTOR WORD#4 
001320 000000 $DDW5: .WORD ADDWS'  ;:; CE DESCRIPTOR WORDAS 
001322 000000 DDW6 . WORD ADDW6 : :DEVICE DESCRIPTOR WORDA6 
on eSe 000000 ge .WORD ADDW7 ;;DEVICE DESCRIPTOR WORDA7 


- 


ee . 
- LS A CE —_—_—_—— 
—_—_——_—  — — oe” 


001412 


SESggggsss 
SRUERRURS SS 


CZRMOBO RMOS/3/2 FCTINL TST 3 
USER DEFINED TAGS 


000000 
000000 
000000 


000 
000 


. SBTTL 
CTLFG: 


CHGADR: 


XXDP: 


LSTRK: 


——— eee 
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USER DEFINED TAGS 


; CONTAINS CONTROL-C FLAG 

; CHANGE RH/RM BUS ADDRESS = -1, NO CHANGE = 0 

+ THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
; THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
: AMD DEVICE CODE FOR THE RMO5S/3/2. 

:HI BYTE, CONTAINS yt TRACK ADDRESS OF UNIT 
[UNDER TEST. RMO2/3 = 4., RMOS = 18. 


;THE REGISTER INPUT BUFFER IS USED FOR 
:STORING DRIVE STATUS 


"he eat INPUT BUFFER 


GE TBUF : 
RMCS11I: .WORD 
RMWCI:  .WORD 
RMBAI: .WORD 
RMDAI: .WORD 
RMCS2I: .WORD 
RMDSI: .WORD 
RMER1I: .WORD 
RMASI: .WORD 
RMLAI: .WORD 
RMDBI: .WORD 
RMMR1I: .WORD 
RMDTI: .WORD 
RMSNI: .WORD 
RMOFI: .WORD 
RMDCI: .WORD 
RMHRI: .WORD 
RMMR2I: . WORD 
RMER2I: .WORD 
RMEC1I: .WORD 
RMECZ2I: .WORD 
I: WORD 
RMCS3I: .WORD 


elelelelelelelelelelelelelele)elelelelela) a 


;CONTROL, STATUS REGISTER 41 
:WORD COUNT REGISTER 

:BUS ADDRESS REGISTER 

:DISK ADDRESS REGISTER 
;CONTROL, STATUS REGISTER 42 
:DRIVE STATUS REGISTER 


; LOOK 

;DATA BUFFER 

sMAINTENANCE REGISTER #1 

sDRIVE :TYPE REGISTER 
NUMBER REG 


; SERIAL ISTER 
:OFFSET REGISTER 
:DESIRED CYLINDER REGISTER 
:HOLDING REGISTER 
:MAINTENANCE REGISTER #2 
sERROR REGISTER #2 
:ECC POSITION REGISTER 
‘SECC PATTERN REGISTER 
:BUS ADDRESS EXTENSION REGISTER 
:CONTROL, STATUS REGISTER 43 


;THE REGISTER OUTPUT BUFFER IS USED FOR 
sASSEMBLING DATA GOING TO REGISTER 


PUTBUF : 


edie.’ OUTPUT BUFFER 


RMCS10: 


RMMR 10: 


» WORD 
. WORD 


OOOOOoOoOCco°0oo& 


:CONTROL, STATUS REGISTER #1 
T REGISTER 


WORD COUN S 

:BUS ADDRESS REGISTER 

;DISK ADDRESS REGISTER 
CONTROL, STATUS REGISTER #2 
:DRIVE STATUS REGISTER 

sERROR REGISTER #1 

; ATTENTION SUMMARY REGISTER 
; LOOK Mare REGISTER 

:DATA BUFFER 

:MAINTENANCE REGISTER #1 


SD ee rn | ne a eee ee 


SEQ 0026 


B 3 
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| USER DEFINED TAGS SEQ 0027 


001440 000000 RMDTO: .WORD 0 ;DRIVE TYPE REGISTER 
001442 000000 RMSNO: .WORD 0 :SERIAL NUMBER REGISTER 
001444 000000 RMOFO: .WORD 0 “OFFSET REGISTER 
001446 000000 RMDCO: .WORD 0 :DESIRED CYLINDER REGISTER 
001450 000000 RMHRO: .WORD 0 ; HOLD ING REGISTER 
001452 000000 20: .WORD OQ MAINTENANCE REGISTER #2 
001454 000000 RMER2O: .WORD 0 “ERROR REGISTER #2 
001456 000000 RMECTO: .WORD 0 :ECC POSITION REGISTER 
001460 000000 RMEC20: .WORD 0 sECC PATTERN REGISTER 
001462 000000 RMBAEO: .WORD 0 “BUS ADDRESS EXTENSION REGISTER 
001464 000000 RMCS30: .WORD 0 :CONTROL, STATUS REGISTER #3 
;EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
:THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
:FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
>IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE 
[END OF THE QUE. 
1466 000000 TSTQUE: .WORD 0 ; CONTAINS DEVICE POINTER 
601470 _BLKw 8. ST QUE FOR DEVICES UNDER TEST 
001510 000000 .WORD 0 “TABLE TERMINATOR GOES HERE WHEN 
*ALL 8. DEVICES ARE UNDER TEST. 
;MEDIA ENABL: IS SET IF THE BAD SECTOR FILES HAVE BEEN RECOVERED 
:FOR iHe UNIT UNDER TEST, OTHERWISE IT IS ZERO. 
001512 000000 MEDENB: .WORD 0 :MEDIA ENABLE 
:LOCATIONS ‘‘ASNDC’’ AND ‘‘ASNDC’’ CONTAIN THE CYLINDER, TRACK AND SECTOR 
[ADDRESS ASSIGNED BY THE BAD SECTOR MODULE. | 
001514 600000 ASNDC: .WORD 0 :ASSIGNED DESIRED CYLINDER 
001516 000000 ASNDA: .WORD 0 ; ASSIGNED TRACK, AND SECTOR 
001520 000000 CLKADR: .WORD 0 UNIBUS ADDRESS OF KW11 CLOCK 
001522 000000 CLKVCT: .WORD 0 :VECTOR ADDRESS OF KW11 CLOCK 
:THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 
:ARE READ BY THE GET SUBROUTINE. THE LIST IS TERMINATED BY 
7A NEGATIVE BYTE. 
001524 GETINX: .BLKB 23. :GET INDEX TABLE 
:THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 
“ARE WRITTEN BY THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 
>A NEGATIVE BYTE. 
001553 PUTINX: .BLKB 23. :PUT INDEX TABLE 


:PUT TAGS HERE 


Se ee ee ee ee mre ee - - -_—_ - 


| CZRMOBO RMO5S/3/2 FCTNL TST 3 


tether eee 


-——— 


ERROR POINTER TABLE 


ows 


oon 


076704 


072410 
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-SBTTL ERROR POINTER TABLE 


>*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR Negl CAN OCCUR. 


;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER 


: sLOCATION set THIS NUMBER INDICATES WHICH ITEM IN 


: *NOTE2: 


SERRTB: 


; ERROR 


: ERROR 


7 ERROR 


sERROR 


ERROR 


z ERROR 





3z:POINTS TO THE ERROR MESSAGE 
s;z:POINTS TO THE DATA HEADER 
;:POINTS TO THE DATA 

;:POINTS TO THE DATA FORMAT 


WRONG UNIT SELECTED 


DEVICE WENT UNAVAILABLE 


DEVICE WENT NONEXISTENT 


CONTROLLER NOT READY 


DRIVE NOT READY AND GO NOT RESET 


UNEXPECTED VALUE FOR ‘ATA’ STATUS 


IN 
THE bt a 5 PERTINENT. 
SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERR 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


= Oe crn ee ee mn me ee eee =e 


[i 


ERROR POINTER T 


ee = 


CZ7RMOBO va abe My + ae 1ST 3 


072440 


072446 
000000 


000000 
000000 


072454 
076470 
076614 
076704 


072460 
076470 
076614 
076704 


076704 


: ERROR 


;ERROR 


> ERROR 


;ERROR 


7 ERROR 


: ERROR 


; ERROR 
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? BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 
E 

10 DRIVE NOT READY BUT GO IS RESET 

17 GO NOT RESET BUT DRIVE IS READY 

12 INCORRECT FUNCTION CODE 

13 PARITY ERROR READING REMOTE REGISTERS 

14 TRANSFER ERROR IS INCORRECT 


15 INCORRECT WORD COUNT 


SEQ U029 


EE EE <n 
— 
SO Sm ae eee oe 





CZ7RMOBO RMOS5S/3/2 FCINL TST 3 


ERROR POINTER TABLE 


ee 
anne nnn nnn Oat tt tte eat tt EE EEE Gee 


001762 
001764 


0725%2 
076794 
072520 
076470 
076614 
076704 


072530 


076704 


072540 


072550 
076470 


072560 
076470 


072570 
076470 
076614 
076704 


072600 


7 ERROR 


; ERROR 


: ERROR 


: ERROR 


: ERROR 


7 ERROR 


s ERROR 





. 
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INCORRECT BUS ADDRESS 


INCORRECT LBT STATUS 


INCORRECT AOE 


INCORRECT DISK ADDRESS 


INCORRECT CYLINDER ADDRESS 


INCORRECT WLE STATUS 


INCORRECT UPE STATUS 


LL LOL LLL EL LOO LE LEOA ELE OO A OT NC CT EE ew ‘ 


' CZRMOBO RMOS/3/2 FCTNL TST 3 


_ ERROR POINTER TABLE 


——— ee ee 


076470 
076614 
076704 


072610 


076704 


0726350 
076470 


076614 
076704 
072640 


076704 


072650 
076704 
072660 
076470 
076614 
076704 


072670 
076470 


7 ERROR 


: ERROR 


> ERROR 


: ERROR 


sERROR 


: ERROR 


sERROR 





ee. 
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INCORRECT WCF STATUS 


INCORRECT WCE STATUS 


INCORRECT MDPE STATUS 


INCORRECT DCK STATUS 


INCORRECT ECH STATUS 


DLT SHOULD NOT BE SET 


MXF SHOULD NOT BE SET 


LLL EE EE NR se - 


SEQ 0031 


ee eee 
| EE EE ee ee eee ne ee =e ereeen eee ee - 


CZRMOBO RMO5/3/2 FCTNL TST 3 


ERROR POINTER TABLE 


002126 
002130 


076614 
076704 
072700 
076704 
072710 
076470 
076614 
076704 


072720 


076704 


072730 


076704 


072740 


076704 


072756 
076470 
076614 


+ ERROR 


: ERROR 


: ERROR 


: ERROR 


: ERROR 


: ERROR 


: ERROR 


. 5 
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DTE SHOULD NOT BE SET 


INCORRECT HCRC STATUS 


INCORRECT HCE STATUS 


INCORRECT FER STATUS 


DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 


LOST *MOL’’ DURING PACK ACKNOWLEDGE 


UNSAFE ERROR DURING PACK ACKNOWLEDGE 


EE A kk conse on 


SEQ 003¢ 


es ee ee 2 ee ee on ae eerenee 
om ~ LL OC A CG CC Ce CL A es at tats te at ae: 


CZ7RMOBO RMOS/3/2 FCTINL TST 3 


| ERROR POINTER TABLE 


—— ee ee 


ee 


002220 


002242 
002244 
002246 
002250 


002252 


076704 


072770 


076704 


073010 
076470 
076614 
076704 


073020 


076704 


073050 


076704 


073036 


076704 


: ERROR 


: ERROR 


zs ERROR 


s ERROR 


: ERROR 


;ERROR 


; ERROR 


EFT] 
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"OPI*’ ERROR DURING PACK ACKNOWLEDGE 


"'RMR'* ERROR DURING PACK ACKNOWLEDGE 


""ILR’’ ERROR DURING PACK ACKNOWLEDGE 


""ILF’' ERROR DURING PACK ACKNOWLEDGE 


COMPOSITE ERROR STATUS IS INCORRECT 


PARITY ERROR WRITING REMOTE REGISTERS 


INCORRECT IAE STATUS DURING SEEK COMMAND 


SEQ 0033 


LS A A eee Sees sn em 
LL A TT A eS sneer 
er ra ee ee ee 
ee — ore - en eee ene eee ee 


ZRMOBO RMOS/3/2 FCTNL TST 3 


ERROR POINTER TABLE 


0 
076704 


073076 


076704 


073114 
076470 
076614 
076704 


073124 
076470 
076614 
076704 


073136 


076704 
073154 
0 0 
073164 


076470 
076614 


7 ERROR 


; ERROR 


> ERROR 


: ERROR 


: ERROR 


all 
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OP] ERROR DURING SEEK = MEDIUM iS NOT ON LINE 


OPI ERROR DURING SEEK = MEDIUM IS ON LINE, ASSUME 
ON CYLINDER LATCH DIDN'T RESET 


SEEK INCOMPLETE ERROR DURING SEEK COMMAND 


DEVICE CHECK DURING SEEK COMMAND 


PIP IS STiLL SET AFTER SEEK - SKI IS RESET 


ATA DID NOT SET DURING SEEK COMMAND 


IVC ERROR DURING SEEK COMMAND - LOST 
VOLUME VALID 


SEQ 0034 


a LE ee 
7 SP 
f - a ee ee es ee —e ——_— 


rrr rss setts ster eee one 


~ CZRMOBO RMOS/3/2 FCINL TST 3 


FRROR POINTER TABLE 


002400 





076704 


0 
076704 


073312 
076470 


> ERROR 


; ERROR 


: ERROR 


> ERROR 


: ERROR 


s ERROR 


;ERROR 


EFT 


a 
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ERRONEOUS IVC ERROR DURING SEEK COMMAND - 
VOLUME VALID IS STIL SET 


MOL IS ZERO, BUT OPI WAS NOT 
REPORTED DURING SEEK COMMAND 


UNUSED 


DRIVE DID NOT DETECT ‘*IVC’’ ERROR DURING SEEK 


DRIVE EXECUTED A SEEK WITH ERROR SET 


UNEXPECTED ERROR SET IN RMER1 


UNEXPECTED ERROR SET IN RMER2 


SEQ 0035 


Re Oe Oe 
— ae ee ee eee 


| CZRMOBO RMOS/3/2 FCTNL TST 3 


| ERROR POINTER TABLE 


oS 
™m 
> 
™N 
Nm 





076674 
076704 


073324 


076704 


073334 


076704 


0733544 


076704 


073362 


073430 
076470 
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; ERROR 


; ERROR 


; ERROR 


; ERROR 


s ERROR 


; ERROR 


: ERROR 


ERRONEOUS ‘‘IAE'’ ERROR DURING RECALIBRATE 


“"ILF'' ERROR DURING RECALIBRATE 


“"OPI"* ERROR DURING RECALIBRATE DUE TO ‘MOL*’ = 0 


“‘OPI"' ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 


""TVC'' ERROR DURING RECALIBRATE - ‘‘vv"’ = 0 


ERRONEOUS ‘'IVC’' ERROR DURING RECALIBRATE - ‘VV"* = 1 


"*SKI"' ERROR DURING RECALIBRATE 


OS a eS ee ee ee ee ee ee ee a ee ~_— = oo —= 20--— 2 


SEQ 0036 


a ee eee mn em a a ne ee ae 


CZRMOBO RMO05/3/2 FCINL TST 3 


| ERROR POINTER TABLE 


002556 
002560 


002562 
002564 


002566 
002570 

195 

196 

197 
002572 
002574 
002576 
002600 


002602 
002604 





076674 
076704 


073440 
076470 
076614 
076704 


073452 


076704 


073470 


076704 


073530 
076470 


076614 
076704 


073546 
076470 
076614 


= 
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7 ERROR 


> ERROR 


; ERROR 


- ERROR 


; ERROR 


: ERROR 


ERROR 


101 


104 


“DVC*’ OCCURRED DURING RECALIBRATE 


LOST ‘MOL** DURING RECALIBRATE = ‘‘OPI'’ = 9 


LOST ‘'VV'' DURING RECALIBRATE = ‘'IVC’’ = 0 


"‘ATA’’ DID NOT SET DURING RECALIBRATE 


"OM" DID NOT RESET DURING RECALIBRATE 


"PIP’' IS STIL SET AFTER RECALIBRATE 


UNEXPECTED ‘*ILR'' ERROR DURING RECALIBRATE 


SEQ 0057 


-—— 


mM 3 
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| ERROR POINTER TABLE 


| SEQ 0038 
| 002650 076704 EFT . 
| 213 
| $18 :ERROR 106 UNEXPECTED ‘'RMR'' ERROR DURING RECALIBRATE 
| 002652 073556 EMT 106 
| 002654 076470 EHT1 
002656 076614 EDT1 
2 076704 EFT1 
216 6 e¢ 
| tha :ERROR 107 UNS'' ERROR DURING RECALIBRATE = AC POWER IS LOW 
002662 073566 EMT107 | 
002664 076470 EHT1 
002666 076614 EDT1 
002670 076704 EFT1 
219 
$30 ERROR 110 CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS 
002672 9073606 EMT110 
002674 076512 EHT110 
002676 076632 EDT110 
2700 076722 EFT110 y 
222 7 
$: ;ERROR 111 NONEXISTENT DEVICE 
002702 073620 EMT111 
2704 076516 EHT111 
002706 076634 EDT111 
002710 076724 EFT111 
225 
$56 ERROR 112 DEVICE NOT AVAILABLE 
002712 073626 EMT112 
002714 076516 EHT111 
002716 076634 EDT111 
002720 076724 EFT111 
228 
$$) sERROR 113 BUS TIMEOUT-NED STATUS FAILURE 
002722 073634 EMT113 
002724 000000 0 
002726 000000 0 
2730 000000 0 
231 
$32 ERROR 114 DEVICE NOT AN RMOS/3/2 
002732 073650 EMT114 
002734 076522 EHT114 
002736 076636 EDT114 
002740 076726 EFT114 





oe mm mm er re a ee ee 


a 


| 
| 
i 
' 


CZ 
ER 


RMOBO RMO5/3/2 FCTINL TST 3 


—_—— a —— a ee -_ 


ROR POINTER TABLE 





002762 
002764 


073656 
076470 
076614 
076704 


073666 
076470 
076614 
076704 


073676 


076704 


073706 
076470 
076614 
076704 


073716 
076470 
076614 
076704 


073726 
076470 
076614 
076704 


073736 
076470 
076614 
076704 


; ERROR 


; ERROR 


7ERROR 


sERROR © 


; ERROR 


~;ERROR 


; ERROR 


115 
EMT115 
HT1 


116 


120 


123 


—_- ee ee — ee ee eee ee 
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RMCS1 NOT INITIALIZED BY UNIBUS 


RMBA NOT INITIALIZED BY UNIBUS 


RMCS2 NOT INITIALIZED BY UNIBUS 


RMER1 NOT INITIALIZED BY UNIBUS 


RMAS NOT INITIALIZED BY UNIBUS 


 RMMR1 NOT INITIALIZED BY UNIBUS 


RMDS NOT INITIALIZED BY UNIBUS 


SEQ 0039 


RMOS/3/ 
INTER T 


2 FCTINL TST 3 
ABLE 


073746 
076470 


—-—— - 


zs ERROR 


: ERROR 


; ERROR 


s ERROR 


s ERROR 


; ERROR 


: ERROR 


124 
EMT124 
HT1 


126 


131 





B 4 
MACRO V0G.00 4-APR-81 01:15:59 PAGE 8-12 


RMEC2 NOT INITIALIZED BY UNIBUS 


RMAR2 NOT INITIALIZED BY UNIBUS 


RMCS1 NOT CLEARED BY CONTROLLER CLEAR 


RMBA NOT CLEARED BY CONTROLLER CLEAR 


RMCS2 NOT CLEARED BY CONTROLLER CLEAR 


RMER1 NOT CLEARED BY CONTROLLER CLEAR 


RMAS NOT CLEARED BY CONTROLLER CLEAR 


meee wee ee ee eo cre ee | ee te 


SEQ 0040 


' CZRMOBO RMOS/3/2 FCTNL TST 3 


- ERROR POINTER TABLE 


i 
) 
! 


277 
278 


281 


282 


076704 


074074 


076704 


074120 


074140 
076470 


: ERROR 


s ERROR 


s ERROR 


s ERROR 


: ERROR 


zs ERROR 


s ERROR 





133 
EMT133 
EHT1 


134 


137 


140 


141 


LL ET LR Rem Re le 
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RMMR1 NOT CLEARED BY CONTROLLER CLEAR 


RMDS NOT CLEARED BY CONTA™ LER CLEAR 


RMEC2 NOT CLEARED BY CONTROLLER CLEAR 


RMMR2 NOT CLEARED BY CONTROLLER CLEAR 


RMCS1 NOT CLEARED BY ERROR CLEAR 


RMCS2 NOT CLEARED BY ERROR CLEAR 


RMCS1 NOT CLEARED BY DRIVE CLEAR 


RMDS NOT CLEARED BY DRIVE CLEAR 


SEQ 0041 


— CZRMOBO RMO5S/3/2 FCINL TS? 3 


ERROR POINTER TABLE 


SSoe 
al ve 
~m 
™m 
Nm 


318 
319 
320 


074150 


074210 
076470 


074220 
076470 
076614 
076704 


074230 


076704 


: ERROR 


; ERROR 


: ERROR 


: ERROR 


s ERROR 


7; ERROR 


ERROR 





ome see 


143 


144 
EMT144 
EHT1 
EDT] 
EFT1 


145 
EMT145 


147 


150 


D 4 
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RMER1 NOT CLEARED BY DRIVE CLEAR 


RMAS NOT CLEARED BY DRIVE CLEAR 


RMMR1 NOT CLEARED BY DRIVE CLEAR 


RMMR2 NOT CLEARED BY DRIVE CLEAR 


RMER2 NOT CLEARED BY DRIVE CLEAR 


RMEC2 NOT CLEARED BY DRIVE CLEAR 


MEDIUM NOT ON LINE 


SEQ 004¢ 


CZ7RMOBO RMO5/3/2 FCTINL TST 3 


FRROR POINTER TABLE 


seme 


a. 


003202 
003304 


003306 
003510 


074240 


076704 


074302 
076470 


074320 
076470 
076614 
076704 


074332 


076470 
076614 
076704 


076704 


074356 


sERROR 


: ERROR 


; ERROR 


s ERROR 


: ERROR 


s ERROR 


; ERROR 


MACRO V04.00 4-APR-81 


EMT154 
EHT1 


155 


160 
EMT160 


—E 4 
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DRIVE FAULT 


UNSAFE SHOULD BE SET BECAUSE DVC IS SET 


UNSAFE SHOULD NOT BE SET, AC IS LOW 


VOLUME VALID NOT SET BY PACK ACK 


OFFSET MODE NOT SET BY OFFSET COMMAND 


OFFSET MODE NOT RESET BY RTC COMMAND 


RMOF NOT RESET BY RIP COMMAND — 


SEQ 0043 


- CZRMOBO RMOS/3/2 FCTNL TST 3 


ERROR POINTER TABLE 


003374 
003376 
003406 


076704 


076264 
076552 
076650 
076740 


074422 


076704 


074430 


676704 


074444 


> ERROR 


s ERROR 


: ERROR 


; ERROR 


; ERROR 


sERROR 


: ERROR 


mee | er ee ee ee 


162 


165 


167 
EMT 167 


ta 
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RMDA NOT RESET BY RIP COMMAND 


RMDC NOT RESET BY RIP COMMAND 


DATA WAS 4 CORRECTED BUT DOES NOT COMPARE WITH 
WRITE BUFFER 


OPI SHOULD NOT BE SET 


IVC SHOULD NOT BE SET 


JAE SHOULD NOT BE SET 


NEM SHOULD NOT BE SET 


ER EE Ce | Re 


SEQ 0044 


Cf eee Gaerne 


003526 


CZ7RMOBO RMOS/3/2 FCINL TST 3 
ERROR POINTER TABLE 


076704 


074452 


076704 


074464 
076470 
076614 
076704 


074474 
076470 
076614 
076704 


074504 
076470 
076614 
076704 
074514 


076704 


074526 


076704 


074534 
076470 


; ERROR 


: ERROR 


: ERROR 


: ERROR 


: ERROR 


: ERROR 


zs ERROR 


170 
ai 


172 
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INCORRECT ‘MOL'' STATUS DURING DIAGNOSTIC MODE 


“"ATA'’ NOT SET DURING RETURN TO CENTERLINE 


""ATA’’ NOT SET BY OFFSET COMMAND 


RMER2 NOT INITIALIZED BY UNIBUS INIT 


RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 


SELECTED DEVICE IS IN WRITE PROTECT 


CANNOT SET DIAGNOSTIC MODE 


Be ae ws yi auaa mare TEM OSTA gine 2 ee SOS ERS ea nc ae cece eae ee ey — 


003556 
003560 


385 


CZ7RMOBO RMOS/3/2 FCTINL TST 2 
ERROR POINTER TABLE 


076614 
076704 


000000 


074544 
076470 
076614 
076704 


074556 
076470 
076614 
076704 


074570 
076470 
076614 
076704 


074602 
076470 
076614 
076704 


074614 


076704 


074632 


076470 
076614 


: ERROR 


s ERROR 


; ERROR 


> ERROR 


; ERROR 


ERROR 


s ERROR 


201 


202 


205 


204 


205 
EMT 205 
EHT 
EDT 
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“RESERVED FOR POWER MONITOR BIT FAILURE-- 


INCORRECT 


INCORRECT 


INCORRECT 


INCORRECT 


PIP’ STATUS DURING DIAGNOSTIC MODE 


"WRL'' STATUS DURING DIAGNOSTIC MODE 


""SKI"' STATUS DURING DIAGNOSTIC MODE 


"DVC*’ STATUS DURING DIAGNOSTIC MODE 


"vv"' WAS NCT RESET BY MAINTENANCE UNIT READY 


SELECTED DEVICE HAS A PERSISTENT ‘‘SKI'* ERROR 


OF LS OE AE CO ES TN 
LLL EES EG ee mm 


SEQ 0046 


CZ7RMOBO RMO5/3/2 FCINL TST 3 


ERROR POINTER TABLE 


003650 


076704 


074642 
076470 


076614 
076704 


974652 


076704 


074672 
076470 


076714 


: ERROR 


ERROR 


:ERROR 


; ERROR 


s ERROR 


ERROR 


; ERROR 


EFT 


206 
EMT 206 
EHT1 


211 


212 


213 


214 


I 4 
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“LBC'’ DID NOT SET DURING DIAGNOSTIC MODE 


UNEXPECTED LOSS OF ‘™MOL’’ = MEDIUM IS OFF LINE 


UNEXPECTED LOSS OF VOLUME VALID - ‘Vv’* = 0 


UNEXPECTED MECHANICAL MOTION - ‘PIP’ = 1 


UNEXPECTED DEVICE FAULT - ‘DVC'’ = 1 


UNEXPECTED SEEK INCOMPLETE ERROR - ‘'SKI*' = 1 


DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 


ee RS em mm 


SEQ 0047 


 CZRMOBO RMOS/3/2 FCINL TST 3 


| ERROR POINTER TABLE 


903742 


076704 


074774 


076704 


075014 
0764/70 
076614 
076704 


075024 
076704 
075034 
076526 
076640 
076730 


: ERROR 


: ERROR 


: ERROR 


; ERROR 


: ERROR 


: ERROR 


215 


216 


217 


222 
EMT 222 
EHT1 
EDT] 
EFT] 


225 


EFT223 
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DRIVE DID NOT DETECT ‘‘IVC*’ ERROR DURING RECALIBRATE 


INCORRECT ‘‘IVC'’ STATUS 


INCORRECT ‘‘IAE** STATUS 


INCORRECT ‘WLE’’ STATUS 


INCORRECT ‘‘OPI** STATUS 


RM DID NOT DETECT RMR ERROR 


RM DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS 


ee a ee ee ee 


SEQ 0048 


— CZRMOBO RMOS/3/2 FCTINL TST 3 
ERROR POINTER TABLE 


> eee eee . 


wo = 
Onsw 


000000 


: ERROR 


7 ERROR 


ERROR 


aE RROR 


; ERROR 


ERROR 


7 ERROR 


224 


Oooo 


Nm 


25 


Oooo 


26 


Mm 


ola lel a) 


™m 


27 


oOooe 


30 


Nm 


Oooo 


31 


A) 


Oooo 


Mm 


32 


Oooo 
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UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 





OE ke ee a ee ee 


L 4 
| CZ7RMOBO RMO5/3/2 FCTINL TST 3 MACRO V04.00 4=-APR-81 01:15:59 PAGE 8-22 
ERROR POINTER TASLE 


j 
| 470 ERROR 233 UNUSED 
| 004122 000000 0 
| 004124 000600 0 
904126 000000 0 
004130 000000 0 
472 
rt sERROR 234 UNUSED 
004132 000000 0 
004134 000000 0 
004136 000000 0 
004140 900000 0 
475 
mA sERROR 235 UNUSED 
004142 000000 0 
604144 000000 0 
004146 600000 0 
004150 000000 0 
478 
479 :ERROR 236 UNUSED 
480 
1 60 0 
004154 000000 0 
004156 000000 0 
004160 000000 0 
481 
482 :ERROR 237 UNUSED 
004162 000000 0 
004164 000000 0 
904166 000000 0 
004170 000000 0 
484 
ro zERROR 240 UNUSED 
004172 000000 0 
004174 000000 0 
004176 000000 0 
004200 000006 0 
487 
rr sERROR 241 UNUSED 
004202 000000 0 
004204 600000 0 
004206 000000 0 
004210 000000 0 
490 
491 ZERROR 242 UNUSED 


OO ee ee me me ee me me ee 


SEQ 0050 


CZRMOBO RMOS/3/2 FCTINL TST 3 
ERROR POINTER TABLE 


000000 


075132 


076470 


676614 
076704 


M 4 
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: ERROR 


;ERROR 


; ERROR 


7 ERROR 


; ERROR 


7 ERROR 


; ERROR 


UNUSED 


UNUSED 


UNUSED 


*"ATA’’ NOT RESET BY GO WHEN ‘ERR" = 0 


“ATA'’ NOT RESET BY WRITING RMAS 


""ATA’’ WAS RESET BY GO WHEN ‘ERR" = 1 


PROGRAM INTERRUPT WAS NOT GENERATED 


SEQ 0051 


| 
& 
| 


CZ7RMOBO RMOS/3/2 + i TST 3 
RROR POINTER TAB 


075146 
076502 
076624 
076714 


075154 
076502 
076624 
076714 


075162 


076704 


075200 


075210 
076470 
076614 
076704 


075220 
NS re 


076640 
076750 


075230 


075242 
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s ERROR 


: ERROR 


; ERROR 


7 ERROR 


: ERROR 


; ERROR 


7; ERROR 


255 


256 


260 
EMT 260 


PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 
OFFSET MODE WAS NOT RESET BY WRITING RMDC 


INCORRECT ‘‘ILF’' STATUS 


INCORRECT ‘‘ATA’’ STATUS 


INCORREC™ ‘‘ILR'' STATUS 


INVALID IAE STATUS DURING SEARCH COMMAND 


""IVC'' WAS NOT DETECTED DURING SEARCH COMMAND 





me en we re os ee te ee ee 


SEQ 0052 


CZ7RMOBO RMOS/3/2 FCINL TST 3) 


Z 
_ ERROR POINTER TABLE 


WIV 
& 





075354 
076470 
076614 
076704 


075366 
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: ERROR 


; ERROR 


: ERROR 


: ERROR 


; ERROR 


: ERROR 


261 


262 


EMT 262 
EHT1 


263 


EMT 265 
EHT1 


264 


266 


EMT 267 


DRIVE EXECUTED SEARCH WITH ERROR SET 


"LBC'' ERROR NOT SET DURING DIAGNOSTIC MODE 


""SKI*' ERROR DURING SEARCH COMMAND 


“TVC'" ERROR DURING SEARCH - LOST VOLUME VALID 


ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS VALID 


DEVICE FAULT (DVC) DURING SEARCH 


SKI. SHOULD HAVE BEEN SET BECAUSE CYLINDER 
ADDRESS IS TOO LARGE 


SEQ 0053 


CZ7RMOBO RMOS/3/2 FCTNL TST 3 


_ ERROR POINTER TABLE 


. 
MACRO V04.00 4-APR-81 01:15:59 PAGE 8-26 


: ERROR 


s ERROR 


; ERROR 


: ERROR 


273 


274 





OPI ERROR DURING SEARCH BECAUSE MOL = 0 


OPI ERROR DURING SEARCH BECAUSE ON CYLINDER 
DIDN'T DROP 


LOST MOL DURING SEARCH, OPI IS NOT SET 


PIP STIL SET AFTER SEARCH 


PARITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 


MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 
COMMAND STARTED | 


“OPI'' ERROR DURING DATA TRANSFER BECAUSE "MOL'’ WAS 


A mm = 


SEQ 0054 


CZ7RMOBO RMOS5S/3/2 FCTNL TST 3 


ERROR POINTER TABLE 


ee ee a - 


079266 


076704 


075574 
076470 


075616 
076470 
076614 


076704 . 


075630 


076704 


075642 


076470 
076614 


2 
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: ERROR 


; ERROR 


: ERROR 


: ERROR 


s ERROR 


; ERROR 


ZERO 


"‘OPI"' ERROR DURING DATA TRANSFER BECAUSE 1) ON 
CYLINDER DIDN'T DROP OR 2) SEARCH TIMED OUT OR 
3) RUN TIMED OUT 


"*"IVC’’ ERROR DURING DATA TRANSFER BECAUSE VOLUME 
WAS NOT VALID 


ERRONEOUS “‘IVC*’ ERROR DURING DATA TRANSFER - VOLUME 
IS VALID 


"*ILR'' ERROR DURING DATA TRANSFER 


"ILF'* ERROR DURING DATA TRANSFER 


""RMR'* ERROR DURING DATA TRANSFER 





ee ee ee ee —< 


SEQ 0055 


= = 


CZRMOBO RMO5/3/2 FCTNL TST 3 
ERROR POINTER TABLE 


004640 076704 


004642 075654 


076704 


004662 075676 


004 
004710 076704 


075742 


076704 


722 075754 


730 076704 


ERROR 


; ERROR 


: ERROR 


ERROR 


7 ERROR 


7 ERROR 


: ERROR 


EFT 


305 
EMT 305 
EHT1 
EDT1 
EFT] 
306 
EMT 306 
EHT1 


EDT 
EFT1 


5 
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INCORRECT “‘IAE*’ STATUS DURING DATA TRANSFER 


""SKI‘' ERROR DURING DATA TRANSFER 


DRIVE DID NOT DETECT SK] ERROR DUE TO CYLINDER 


DEVICE FAULT DURING DATA TRANSFER 


LOSS OF BIT CLOCK DURING DATA TRANSFER 


LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 


UNSAFE ERROR DURING DATA TRANSFER (DVC = Q) 


SEQ 0056 


625 
626 
627 


CZRMOBO RMO5S/3/2 FCTINL TST 3 
ERROR POINTER TABLE 


075776 


076704 


076020 
076470 


076704 


: ERROR 


: ERROR 


; ERROR 


s ERROR 


; ERROR 


: ERROR 


s ERROR 


316 


EMT 316 
EHT1 
EDT1 
EFT 


317 


EMT 317 
EHT1 
EDT 
EFT] 


e.§ 
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DRIVE TIMING ERROR DURING DATA TRANSFER 


WRITE LOCK ERROR 


ERRONEOUS WRITE LOCK ERROR 


HEADER CRC ERROR DURING DATA TRANSFER 


FORMAT ERROR DURING DATA TRANSFER 


HEADER COMPARE ERROR DURING DATA TRANSFER 


HEADER ERRORS SHOULD NOT BE SET 


— LT ES Oe ne em 


SEQ 0057 


_ a eee ee 


005050 


005052 


| CZRMOBO RMOS/3/2 FCINL TST 3 
_ ERROR POINTER TABLE 


076070 
076470 
076614 
076704 


076100 


076704 


076112 
076470 
076614 
076704 


076124 
076470 
076614 
076704 


076142 
076470 
076614 
076704 


076154 


076704 


G 5 
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ERROR 


>ERROR 


> ERROR 


: ERROR 


: ERROR 


zERROR 


7; ERROR 


325 
EMT 325 
EHT1 
EDT1 
EFT1 
326 
EMT 326 


327 


EMT 327 
EHT 1 


330 


EMT 330 
EHT1 


331 


EMT 351 
EHT1 


DATA CHECK ERROR DURING DATA TRANSFER 


CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


DATA PARITY ERROR DURING READ COMMMAND 


OFFSET MODE NOT RESET BY WRITE COMMAND 


DATA PARITY ERROR DURING WRITE COMMAND 


WRITE CLOCK FALURE DURING WRITE COMMAND 


SEQ 005& 


rR eee 
scueeneeetiie nti - —_— 


— 


©7RMOBO RMOS/3/2 FCTNL TST 


FRROR POINTER TABLE 


685 
686 


076704 


676210 
076470 
076614 
076704 


076226 
076470 
076614 
076704 


076244 
076470 
076614 
076704 


076264 
076552 


076650 
076740 


076274 


076750 


076304 


076740 


2 


a 


zs ERROR 


; ERROR 


: ERROR 


; ERROR 


7 ERROR 


sERROR 


; ERROR 


zERROR 


332 
EMT 332 


334 


EHT1 


336 


EFT 336 


337 
EMT 537 


EF T3537 


340 
EMT 340 


EF 1536 


341 


H 5 
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DATA LATE ERROR DURING DATA TRANSFER 


PIP STIL SET AFTER DATA TRANSFER = SKI = 0 


LOST MOL DURING DATA TRANSFER = OPI = 0 


LOST VOLUME VALID DURING DATA TRANSFER - IVC 


DATA READ DOES NOT COMPARE WITH DATA WRITTEN 


WRITE CHECK ERROR NOT DETECTED 


WRITE CHECK ERROR AT UNEXPECTED ADDRESS 


INCORRECT DATA DURING WRITE CHECK ERROR 


EE EE ES Se ete ee ee 


0 


SEQ 005% 


CZRMOBU RMOS/3/2 FCTNL 
ERROR POINTER TABLE 


690 
005202 
005204 


005206 
905210 


076316 


076740 


076324 


076336 
076470 
076614 
076704 


076350 
076576 
076679 
076760 


076704 


076372 


076704 


076406 
076470 
676614 
076704 


: ERROR 


s ERROR 


; ERROR 


: ERROR 


: ERROR 


7 ERROR 


; ERROR 


345 


EMT 343 
EHT 1 


344 


EMT 344 
EHT 344 
EDT344 
EF T344 


LL ET 


‘-§ 
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“IVC'' ERROR NOT DETECTED DURING DATA TRANSFER 


"FER'’ NOT DETECTED DURING DATA TRANSFER 


‘HCE’ NOT DETECTED DURING DATA TRANSFER 


"'BSE'' NOT DETECTED DURING DATA TRANSFER 


HEADER ERROR WAS DETECTED W/ HCI SET 


DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 


LOST VOLUME VALID DURING SEARCH - ‘‘IVC’' = 0 


Lr; i te ei et et tt A i i 6 ee we eee ee ee ee ee ee - 


CZ7RMOBO RMOS/3/2 FCTNL TST 3 


ERROR POINTER TABLE 


' 


a 


715 
716 
717 


005340 


724 
725 


076704 


076436 
076470 
076614 
076704 


076446 
000000 


076770 


076462 


076704 


zs ERROR 


; ERROR 


: ERROR 


: ERROR 


352 
EMT 352 
0 

0 

0 

353 
EMT353 
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“‘ATA'’ DID NOT SET DURING SEARCH 


PROGRAM TIMEOUT WHILE TESTING RMLA 


LOOK AHEAD TEST FAILS 


BSE SHOULD NOT BE SET 


;PUT ERROR TABLE HERE 


SEQ 0061 


= 
| C2RMOBO RMOS/3/2 FCINL TST Z MACRO VO04.00 4-APR-81 01:15:59 PAGE 9 
| ERROR TABLE USAGE SEQ 0062 


-SBTTL ERROR TABLE USAGE 
; THE Sg TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 


ERROR MESSAGE TABLE ADDRESS 
ERROR HEADER TABLE ADDRESS 
ERROR DATA TABLE ADDRESS 

ERROR FORMAT TABLE ADDRESS 


;THE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS 

7FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
;OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND 

; TYPED BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRY IS ZERO, THERE IS 
;NO MESSAGE TO BE TYPED FOR THE ERROR. . 


:SIMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES 

:O0F HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY 
;IN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF 
:DATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 

21 sHEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA, 

22 ;BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 
23 :MUST ALSO HAVE A FORMAT. 


mn 

0 

~ 
‘ree 


: EHT 


OOWONOULPWR?OWOWONC OPW -a 


MM RM AB ee 


EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 
28 ; OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT. 


ae) 
N 
™ 


24 
25 : IN SUMMARY, 
26 : EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE, 


eS SE ee ee ee me ee ee 


ee ee. cee — 
a << <s 
- _ 


 CZRMOBO RMOS/3/2_ FCTNL 
ERROR TABLE USAGE 





010046 
104402 
000240 


012737 
000402 


005037 


012737 


013746 


001012 
000403 


TST 3 


005356 


177777 


001330 
000000 


001114 
001154 
001100 


177777 


L 2 
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;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: MOV (SP) ,RO + SAVE PC WHERE THE TIME OUT OCCURED 
TST -(RQ) ADJUST PC <2 
CMP (SP)+,(SP)+ : RESTORE STACK POINTER 
TYPE ~,65$ ; YPE ASCIZ STRING 


4$ ‘GET OVER THE or 
<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 


RO,-(SP) ;SETUP FOR TYPING OUT PC 


BR 
ra eASCIZ 
"MOV 
TYPOC 
NOP 

| ;TO STOP ON UNEXPECTED TIMECUT 
START OF PROGRAM 


.SBTTL 
001330 START1: MOV #=-1 ,CHGADR ; CHANGE RH/RM BUS ADDRESS 

BR START2 

START: CLR CHGADR :NO CHANGE IN ADDRESS 

START2: NOP 
INC #0 :TTY LOOP, WAIT FOR INCREMENT 
BNE - ;OF WORD 
RESET :RESET THE WORLD 

.SBTTL Ah Sa THE COMMON TAGS 

::CLEAR THE COMMON Lay ala AREA 


MOV ASCMTA ;zFIRST LOCATION TO BE CLEARED 
CLR (R6)+ si ee? MEMORY LOCATION 
C ASWR ,R6 2D 
evar : LOOP. * BACK IF NO 
K,SP SETUP THE STACK POINTER 


MOV #STA 
ss INITIALIZE A FEW VECTORS 
MOV #$ 


000020 SCOPE ,a#IOTVEC ‘teue VECTOR FOR SCOPE ROUTINE 
22 MOV oye an lOTVEC+2 s:LEVEL 7 
000030 MOV #SERROR, VEC sem VECTOR FOR ERROR ROUTINE 
000032 MOV #340, SHEMTVE CS? : LEVEL 
34 oa #STRAP , AA TRAPVEC —s FOR TRAP CALLS 


#340, a4 TRAPVEC+2; LEVE 
#SPWRDN, 


000024 MOV @A#PWRVEC ;;POWER_FAILURE VECTOR 
26 MOV #340, aMPWRVEC+2 ;:LEVEL 7 
037072 MOV SENDCT , SEOPCT :SETUP END-OF-PROGRAM COUNTER 
CLR STIMES S PINITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE ee CL LEAR THE ESCAPE ON ERROR ADDRESS 
001131 MOVB . #1,SERMAX sALLOW ONE ERROR PER TEST 
001122 MOV #.  SLPADR ;s INITIALIZE THE LOOP ADDRESS FOR SCOPE 
001124 TUP THE ERROR LOOP ADDRESS 


, SLPERR 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
SETUP FOR A SOFTWARE SWITCH REGISTER. 
@HERRVEC, mt oy ioe ERROR VECTOR 


MOV 
i:SIZE FOR A 
;ZEQUAL TO A * 

MOV 


000004 MOV #64$, “te VEC ;SET UP ERROR VECTOR 
001154 MOV #DSWR, SWR ; 3s SETUP FOR A HARDWARE SWICH REGISTER 
001156 MOV #DDISP DISPLAY AND A HARDWARE DISPLAY REGISTER 
173310 CMP 4-1 ,aSWR ST TRY TO REFERENCE HARDWARE SWR 
BNE 66$ ; BRANCH IF NO TIMEOUT TRAP OCCURRED 
;s THE HARDWARE SWR IS NOT = -1 
BR 65$ ::BRANCH IF NO TIMEOUT 


sPUT *HALT(0O)" INSTRUCTION HERE IF YOU WISH 


SEQ 0063 


eee epee eee — 
~ - a 


— —_ a= —— 


| € 
I 


m 5 
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NITIALIZE THE COMMON TAGS SEQ 0064 
005650 012716 005656 64$: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 
005654 000002 RT! 
005656 012737 000176 001154 65$: MOV #SWREG, SWR ::POINT TO SOFTWARE SWR 
005664 012737 000174 001156 MOV #DISPREG, DISPLAY 
005672 012637 000004 66$: MOV (SP)+,aMERRVEC ;;RESTORE ERROR VECTOR 
005676 005037 001230 CLR SPASS :CLEAR PASS COUNT 
005702 132737 000200 001243 BITB #APTSIZE.$ENVM TEST USER SIZE UNDER APT 
005710 001403 BEQ 7$ >: YES,USE NON=APT SWITCH 
00571 012737 001244 001154 ven MOV #SSWREG, SWR *:NO,USE APT SWITCH REGISTER 
24 -SETUP ''TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
25 005720 012737 005342 000004 MOV WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
<6 005726 012737 000300 000006 MOV WPRO,ERRVEC+2 LEVEL 6 
28 .SBTTL TYPE PROGRAM NAME 
, ;;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
005734 005227 177777 INC #~1 FIRST TIME? 
005740 001035 BNE 58S «BRANCH IF NO 
005742 022737 037242 000042 CMP WSENDAD,a#42 =  sACT=11? 
005750 001431 BEQ 68$ : ;BRANCH IF YES 
005752 104401 005760 TYPE ,69$ i: TYPE ASCIZ STRING 
005756 000426 BR 68$ “GET OVER THE ASCIZ 
eiaiee 33698: “ASCIZ <CRLF>@CZRMOBO - RMOS/3/2 FUNCTIONAL TEST, PT 3a<CRLF> 
) -SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
006034 005737 000042 TST arg? ::ARE WE RUNNING UNDER XXDP/ACT? 
006040 001012 BNE 70$ > :BRANCH IF YES 
006042 123727 001242 000001 CMPB —Ss SENN, #1 >:ARE WE RUNNING UNDER APT? 
006050 001406 BEQ > :BRANCH IF YES 
006052 023727 001154 000176 CMP SWR .ASWREG >= SOFTWARE SWITCH REG SELECTED? 
006060 001005 BNE 71$ > :BRANCH IF NO 
006062 104407 GTSWR >:GET SOFT-SWR SETTINGS 
000403 : BR 71$ 
006066 112737 000001 001150 70$: ##MOVB  #1,$AUTOB ::SET AUTO-MODE INDICATOR 
- 006074 71$: 
30 : THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
31 | “PAPER TAPE (MANUAL), -ACT11, XXDP CHAIN OR DUMP 
33 006074 005037 001332 CLR XXDP ;CLEAR "XXDP* LOAD DEVICE STORAGE 
34 006100 122737 000016 000041 (MPR so#16,a841 > “LOADED FROM AN RMOS/3/2 ? 
35 006106 001160 BNE “BRANCH IF NOT 
3% 006110 013737 000040 001332 MOV @440,XXDP GET DEVICE INDICATOR AND NUMBER 
37 006116 122737 000007 001332 CMPB—s#7, XXDP -IS IT A VALID NUMBER ? 
38 006124 103002 BHIS _ 1$ : 
39 006126 105037 001332 CLRB = XXDP DEFAULT TO DRIVE 0 
40 006132 005737 000042 1$: TST av42 ‘CHAIN MODE OR ACT11 AUTO ACCEPT ? 
41 006136 001425 BEO 2$ “BR IF NEITHER 
42 006140 104401 006146 TYPE 73$. 33 TYPE ASCIZ STRING 
006144 000412 BR 72$ T OVER THE ASCIZ 
adel 55738: “ASCIZ <CRLF>/NOT TESTING DRIVE / 
43 006172 005046 CLR -(SP) :CLEAR WORD ON STACK 
44 006174 113716 001332 MOVB _- XXDP,, (SP) GET DRIVE ADDRESS 
45 006200 104403 TYPO | TYPE THE ADDRESS 


46 006202 001 BYTE 1. “ONLY | CHARACTER 


mm we 


a” 


Se es ee ee 


MOBO RMO5/3/2 FCTNL 
VALUE FOR SOF TWARE 


005737 
001561 
012737 


132737 
001146 


005001 
013700 
104401 


000 
104401 


010160 
60 


001430 


TST 3 


001217 


177777 
006226 


001332 


006266 


006356 


000042 
000377 


000200 


001276 
071430 


071746 


001217 


071640 


004000 


000026 
071446 
020025 


~ ee ee Se eines ste ne 
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SWITCH REGISTER 


001300 


001243 


001300 


000010 


000010 
000000 


006776 


2$: 


:;75$: 


74$: 


::78$8: 
$: 


-ASCIZ 


-(SP) 
XXDP, (SP) 


0 :SUPRESS LEADING ZEROS 
$CRLF = CRLF 

3$ “GET NUMRER OF DRIVES 

“a1 :FIRST TIME THRU HERE ? 
75$ ii TYPE ASCIZ STRING 


4$ ET Pian THE ASCIZ 
<CRLF>/TO TEST DRIVE / 


:CLEAR WORD ON STACK 
:GET DRIVE ADDRESS 
; TYPE DRIVE jg 


1 “ONLY 1 CHARACTER 

0 :SUPRESS LEADING ZEROS 
77$ i: TYPE ASCIZ STRING 

? ER THE 


6$ GET OV ASCIZ 
/, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 


78$ i: TYPE ASCIZ STRING 
3$ T OVER THE ASCIZ 
7WITH A WORK PACK. CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 


;CHECK FOR AUTO MODE OR STANDLONE MODE 
TST a42 


BEQ 
MOV 


‘ok TF WO AUTO MODE ? 
:SET DEVICE MAP FOR ALL DRIVES 


STANDALONE 
#377 ,SDEVM 


~~ IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 


1$: 





#B1T7,SENVM sSIZING ALLOWED ? 
128 NO 
R1 ;START FROM DRIVE 0 
$BASE ,RO > LOAD THE BASE ADDRESS 
~SYSTAT 3 TYPE ‘UNIT STATUS: 
ATNTBL (RI) ,SDEVM :IS DEVICE PRESENT IN MAP ? 
11$ Pang 
CRLF :CR = 
R1, toe? SAVE R1 FOR TYPEOUT 
3;GO TYPE--OCTAL ASCII 
2 io 2 DIGIT(S) 2. 
0 UPPRESS LEADING ZEROS 
-BLNKS4 TYPE 4 BLANKS 
ACLR,RMCS2(RO) ;CLEAR eR BUS 
R1,RMCS2(RO) [LOAD THE DRIVE ADDRESS 
RMDS (RO) sACCESS DRIVE — 
ANED ,RMCS2 (RO) iS rie} PRESENT ? 
#DVA,RMCS1(RO) ;IS DRIVE AVAILABLE ? 
4 :BR IF NO 
RMDT (RO) ,R2 :SAVE DRIVE TYPE REGISTER IN R2 


ASRMO2 , 108 sASSUME RMO2 DEVICE 
#20025 ,Re :SINGLE PORT RMO2 ? 
2$ -BR IF YES 


i ms ee ee ee 


SEQ 0065 


ee a ee ee ee - — — a = 7 m -_ 


CZRMOBO RMOS/3/2 FCTNL 


GET VALUE FOR SOF TWARE 


95 006612 
96 006616 


ETRE 


Van 


R ee 


NN NWNw 
OF 


S85 See 
Sua Ban 


BReERE 
RRBES 


ES SEIERRUNISVSVIRRONVI Sa va ar av=SSSLRARALLS SSS 
NNN 
SNSt 


ee ee a ee ee ee ee ee ee ke ee ee ee eee 


104401 
000402 


104401 
146137 
000425 


104401 
146137 
000413 
005737 


125703 


024025 
071453 
020024 
024024 


071460 
020027 


024027 
071465 
010000 


071523 


071540 
071746 


071557 
071746 


001352 
001352 


071506 


071570 
071642 


000007 


001217 
007476 


B 6 
TST 3 MACRD V04.00 4-APR-81 01:15:59 PAGE 10-3 
SWITCH REGISTER 


006776 


000012 


001300 


001500 


2$: 


3$: 


4$: 
5$: 


6$: 
7$: 


8$: 
9$: 


10$: 
11$: 


12$: 


#26025,R2 
2$ 


Bei 


#$RMO3 , 10$ 
#20024 ,R2 


2$ 
#24024 ,R2 
2$ 


#$RMO5 , 108 
#20027 ,R2 


2$ 

#24027 ,R2 
2$ 

NOTRM 


$ 
AMOL ,RMDS (RO) 
6$ 


7$ 


NOTPRS 
S$ 


e-NOTAVL 
ATNTBL (R1).SDEV 


- UNT OF F 
 :aecbaiomcpaiet 


XXDP 
. 
XXDP.R1 
S$ 
LODEV 
5$ 


R1 
R147 
1$ 


.$CRLF 
CMNSTART 


;DUAL PORT RMO2 ? 
;BR IF YES 
sASSUME RMOS3 DEVICE 


;SINGLE PORT RMO3 ? 
;BR IF YES 

;DUAL PORT RMO3 ? 
:BR IF YES 

s ASSUME RMOS5 DEVICE 
2 PORT RMOS ? 


;BR I mit: 
;DUAL PORT RMOS ? 
:BR IF YES 
:DRIVE NOT AN RMO5/3/2 
; CHECK NEXT DRIVE 
71S MEDIUM ON LINE ? 
;BR IF NO 
:DRIVE NOT PRESENT 
; CHECK NEXT DRIVE 
sDRIVE NOT ee hots 
LEAR DEVICE FROM BIT MAP 

» CHECK NEXT DRIVE 
;DRIVE OFFLINE 

CLEAR DEVICE FROM BIT MAP 
:PRINT DRIVE TYPE 
s LOADED FROM RMOS/3/2 ? 
1S THIS THE DRIVE ? 
“BR IF NO 


zDRIVE IS LOAD DEVICE 


Re bg ~~. 
2 BLANK 


‘PRINT DRIVE TYPE 
SMESSAGE ADDRESS HERE 


: INCREMENT THE DRIVE sag 
TALL DRIVES ARE CHECKED 
:BRANCH IF NOT 


; CRLF 
>; JUMP TO COMMON START 


ee ee eons 


SEQ 0066 


We 


. 
> 


od ed eed ed eed ond ed eed ed ed 
NAME WNM A OVOONAUF Wr 


Ss 
z 


9 007066 
20 007072 
$3 007076 


5 
113737 


RMOBO RMO5/3/2 FCTNL TST 3 
ONE INPUT ROUTINES 


066510 
177777 


070530 


001176 
001176 


001176 
106436 


071634 
001217 


0013350 


001330 
001217 


071105 
001276 


071642 
001176 


160000 001176 


071115 


001176 001276 


071157 
001272 
071642 
001176 


0010CO 001176 


071166 
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090131 


.SBITL STANDALONE INPUT ROUTINES 
STANDALONE : 
JSR PC. $TKINT : INITIALIZE CONSOLE 
INC t=] :FIRST TIME THRU HERE ? 
BNE 2$ ;BR IF NO 
:SEE IF OPERATOR WANTS HELP TEXT 
TYPE § ,MSHELP WANT HELP ? . 
RDCHR : “GET RESPONSE 
MOY (SP)+,$TMP1 “SAVE AND ECHO RESPONSE 
CMPB ss $TMP'1_#'"Y “WAS IT A YES RESPONSE ? 
BNE 1$ :NO 
TYPE  ,$TMP1 “TYPE ‘y? 
TYPE HELP “YES = TYPE HELP TEXT 
1$: TYPE  .4N : TYPE 'N! 
TYPE $CRLF *CR=LF 
BR 3$ 
iste IF USER WANTS TO CHANGE UNIBUS ADDRESS 
TST CHGADR : CHANGE RH/RM BUS ADDRESS ? 
BEQ 7$ :BR IF NO 
CLR CHGADR =NO CHANGE NEXT TIME 
TYPE  ,$CRLF > CR=LF ; 
DIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 


4$: 
5$: 


001176 001272 6$: 





-CNSLO1 : TYPE CURRENT BUS cena 


SBASE ,~(SP) :SAVE $BASE FOR TYPEOUT 
TYPOC : :° 60 TYPE=-OCTAL ASCII(ALL DIGITS) 
TYPE ,BLNKS2 :TYPE 2 BLANKS 
RDOCT *GET NEW BUS ADDRESS 
MOV (SP)+,$TMP1 ; CARRIAGE RETURN ? 
BEQ = YES-SKIP TO NEXT ENT 
COP #160000, $TMP1 :BASE ADDRESS IN 1/0 PAGE ? 
TYPE CNSLO2 > TYPE WARNING MESSAGE 
BR =TRY AGAIN 
MOV STMP1 , SBASE “STORE NEW BUS ADDRESS 
TYPE -CNSLOS 
MOVE $VECT1, (SP) :GET CURRENT VECTOR ADDRESS 
TYPE ,BLNKS2 TYPE 2 BLANKS 
RDOCT “GET NEW VECTOR ADDRESS 
MOV (SP)+,$TMP1 = CARRIAGE RETURN? 
BEQ *YES=SKIP TO NEXT ENTRY 
co #1000, $TMP1 : VECTOR ADDRESS < 1000 ? 
TYPE CNSLO4 : TYPE WARNING MESSAGE 
MOVB  $TMP1,$VECT1 STORE NEW VECTOR ADDRESS 


ee rs rr rs ee ee ee 


SEQ 0067 


+ ee oe —_——-——- a ee wee os 


~ CZRMOBO_RMOS/3/2 FCTNL TST 3 
| STANDALONE INPUT ROUTINES 


— —— ee — —— me = ee eee 
—_ ———— —— 
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9% : 
95 oaoeee 


96 0074 

97 007250 
98 007456 
99 007464 


100 007466 
101 007472 


177777 
071222 
001217 
001300 
071406 
001176 
001176 
070514 
000377 
006464 
001176 
001176 


01 
4 001176 
~ 001176 


001176 
001176 


070525 


071364 


001176 


001217 
006464 


SEQ 0068 
“DIALOGUE TO INPUT DEVICE NUMBERS 
7$: INC #=-1 sFIRST TIME THRU ? 
BNE 8S :BR IF 
TYPE ,CNSLO7 : TYPE INPUT INSTRUCTIONS 
8$: TYPE ,SCRLF *CR- 
9$: CLR $DEVM ‘CLEAR DEVICE MAP 
TYPE -MSDRVS -TYPE "DRIVE(S): ° 
RDCHR 
MOV (SP)+,$TMP1 :GET RESPONSE 
000101 CMP $TMP1,4#°A :1S INPUT ''A’' ? 
BNE 0$ 
TYPE ALL “YES, TYPE ‘‘ALL’’ AND GO 
001300 - MOV #377 ,SDEVM =SET DEVICE MAP FOR ALL DRIVES 
JMP xS1Z :AUTO SIZE. 
000015 10$: CMP $TMP1,4CR ; CARRIAGE RETURN ? 
BEQ 12$ - YES 
TYPE /STMP1 “ECHO RESPONSE 
000060 cH $1 #0 ; NUMBER <0? 
000067 CMP STMP1,#°7 “NUMBER > 7 ? 
BLE 13$ : 
BR 12$ : ILLEGAL INPUT 
11$: RDCHR | 
MOV (SP)+,$TMP1 :GET RESPONSE 
000015 CMP STMPT .#CR : CARRIAGE RETURN ? 
TYPE , COMMA TYPE ‘*, ° 
TYPE .STMP1 =ECHO RESPONSE 
000060 CMP STMP1,#'O =NUMBER < 0 ? 
BLT 12$ : YES 
000067 CMP STMP1,#°7 “NUMBER > 7 ? 
BL 13$ : 


E 
12$: TYPE , CNSLO8 
BR 9$ 


13$: MOV STMP1.R1 
BIC #*C7.,R1 
001300 BISB ATNTBL (RI) . SDEVM 
001300 CMPB #377, SDEVM 
BHI 11§ 
14$: TYPE ‘imi 
' JP KS12Z 


“TYPE CR-LF '* 2ILLEGAL INPUT"' 
sRETRY 
:R1 = DRIVE NUMBER . 

| 3SET DEVICE IN MAP 


“CRLF 
"GO SIZE DEVICES 


CZ7RMOBO RMOS/3/2 FCINL TST §$ 


STANDALONE INPUT ROUTINES 


LT 
[~ = aes re or ee 
een ——- <= —<—- = 


— > —) wd 2 — 
AVF wWY—-OOd 
~N 
vi 
™ 
oO 


34 007664 
+ 007670 
37 007670 


105037 
005037 
005037 
004737 


071600 
001300 


070525 
071627 


070525 


071746 
000002 


001217 


045550 
007624 


000042 


005432 
037232 


0 . 
001300 
A 


000042 


005432 
037232 


007750 
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000001 


sASSEMBLE TEST QUE FROM DEVICE MAP 
CMNSTART: 


1$: 


2$: 


3$: 


4$: 


>SIZE FOR CLOCK 
JSR 


= -65§: 


64$: 


5$: 
6$: 


READY: 


1$: 
2$: 


BR 
TYPE 
eASCIZ 


DRIVES 


:TYPE "DRIVE(S) TO BE TESTED' 
SDEVM. RO “RO = DEVICE MAP 

“BR IF ‘DRIVES TO TEST ‘ 
COMMA : TYPE 


» NONE 
#TSTQUE+2,R1 


TYPE ‘KONE 
:R1 = ADDRESS OF FIRST ENTRY IN QUE 


RI. TSTQUE ; INITIALIZE ENTRY POINTER 
»R2 “R2 = DEVICE POINTER 
R3 *R3 = DEVICE NUMBER 
Re -RO :1S THIS DEVICE IN MAP ? 
, COMMA “TYP ny, 
R3,(R1) ;YES - ENTER DEVICE NUMBER IN QUE 
R3,-(SP) SAVE R3 FOR TYPEOUT 
4° TYPE=-OCTAL ASCII 
1 i: TYPE 1 DIGIT(S) 
0 UPPRESS LEADING ZEROS 
ATNTBL(R3),1(R1):ENTER ATTENTION SIT IN QUE 
#2,R1 :ADVANCE ENTRY POINTER 
R2 “ADVANCE DEVICE POINTER 
Re spo ALL DEVICES ? 
R3 *ADVANCE DEVICE NUMBER 
2$ ENTER NEXT DEVICE 
(R1) = TERMINATE TEST QUE 
»SCRLF : TYPE CR=LF 
PC,SIZCLK :SEE IF CLOCK PRESENT 
6$ s¥ES - CLOCK IS PRESENT 
,65$ : TYPE ASCIZ STRING 


>GET OVER THE ASCIZ 


64$ : 
<CRLF>/NO 'L* OR *P* CLOCK/ 


D442 sANY MONITOR PRESENT ? 

5$ :BR IF YES 

START ; JUMP TO START 

$GET42 [RETURN CONTROL TO MONITOR 
;READY TO START >" 

$DEVM sANY DRIVES IN MAP ? 

2$ :BR IF YES 

a442 ;ANY MONITOR PRESENT ? 

1$ :BR IF YES 

START ; JUMP TO START 

$GET42 :RETURN CONTROL TO MONI TOR 

$TSTNM RESET TEST NUMBER 

$TIMES s INITIALIZE NUMBER OF ITERATIONS 

CILFG =CLEAR CONTROL-C FLAG 

PC,STKINT : INITIALIZE TTY 

APRS ,~ (SP) 3iPUT NEW PS ON STACK 

#64$,~-(SP) ;;PUT NEW PC ON STACK 


::;POP NEW PC AND PS 


OR or er em ne a i i a ee ee 


SEQ 0069 
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STANDALONE INPUT ROUTINES SEQ 0070 


64$: 
171512 001234 MOVB @TSTQUE ,SUNIT ;LOAD DRIVE NUMBER 
25 007756 0050357 001512 CLR MEDENB ;CLEAR MEDIA ENABLE 
$3 >CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRACK 
54 :OF THE DIFFERENT DRIVE TYPES 
56 007762 012737 2000 001334 MOV #TAG,LSTRK ;ASSUME LAST TRACK FOR RMO2/3 = 
57 007770 0137 001276 MCV $SBASE ,R *R = UNIBUS ADDRESS 
58 007774 012760 000040 000010 MOV ACLR,RMCS2(RO) ;CLEAR MASSBUS 
59 010002 117760 171460 000010 MOVB @aTSTQUE ,RMCS2(RO) mee! DEVICE UNDER TEST 
60 010010 016002 000026 MOV RMDT(R RO), R2 :GET RMDT AND 
61 010014 042702 177770 BIC #177770, R2 : SAVE DRIVE TYPE BITS 
62 010020 022702 000007 CMP #7 ,R2 :1S IT AN RMOS ? 
63 010024 001003 BNE 3$ 3NO, MUST BE AN “RMO2 OR RMO3 
rr 010026 012737 011000 001334 MOV #TA16!TA2,LSTRK “ YES==SET LAST TRACK = 18. 
66 : TYPE DRIVE NUMBER TO BE TESTED($UNIT) 
68 €10034 104401 001217 3$: TYPE ,SCRLF ; CR=-LF 
69 010040 104401 071422 TYPE ~MSGDRV : TYPE "DRIVE’ 
70 0100464 013746 001234 MOV SUNIT,-(SP)  : SAVE SUNIT FOR TYPEOUT 
+3 TYPE DRIVE NUMBER 

010050 104403 TYPOS 30 TYPE=-OCTAL ASCII 

010052 002 -BYTE 2 >: TYPE ? DIGIT(S) 

010053 000 -BYTE 0 7; SUPPRESS LEADING ZEROS 
71 010054 005004 CLR R4 ; THESE TWO LOOPS ARE ADDED TO 
72 010056 005304 DEC R4 sWAIT FOR TTY 
73 010060 001376 BNE 7-2 
74 010062 005304 DEC R4 
75 010064 001376 BNE ~2 


rm  mnemrte mer ees ree eee ~ eee ee eee 


CZ7RMOBO RMO5/3/2 FCINL TST 3 
STANDALONE INPUT ROUTINES 


1 
2 


mM 
wy— 


mr 
fw 


RAR 


OOWOWONAULSWN-OVOANDA Ww 
=) oO 


126 
0134 


10142 


1 
1 
7 
1 
1 


oOo OO00O 


010226 
010230 


012737 
110160 


012737 


060006 
000004 


000042 


005422 | 
001300 


037044 


001100 
001276 


001466 
000002 001226 
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001226 


000004 
000006 


>> 


Sf PERAARAARAARAAKAAAAAAAAAEEAARAARARAAARARAARAAAKARAAARAEARERERAERERAES 


S*TEST 1 


CONTROLLER ACCESS TEST 


Wnt eeeeeaRASRAARESALR SARA RRRRRSRARRR RRR RRS RRR RRR RRR RRS RRR SAR RRR RSS SE SS | 


Sti: 


1$: 


3$: 


sSCOPE CALL 
:START OF TEST 


ASTACK, SP s INITIALIZE STACK POINTER 

$BASE ,RO :RO = UNIBUS ADDRESS 

TSTQUE ,R1 ;(R1) = DEVICE BEING TESTED 
#1,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 


R1 
ERRVEC,~(SP) 
ERRVEC+2,~(SP) 


3¢PUSH ERRVEC ON STACK 
; zPUSH ERRVEC +2 ON STACK 


AIS,ERRVEC _ 

#PR6E,ERRVEC +2 

R1,RMCS1+1(RO) ;MOVE HI BYTE TO RMCS1 

R1 RMWC (RO) ;MOVE WORD COUNT REGISTER 

RMUC CRO) , Pe 

R1,RMBA( RO) :MOVE BUS ADDRESS REGISTER 

RMBA (RO) R2 

RMCS2(RO), - (SP) :PUSH RMCS2(RO) ON STACK 
R1,RMCS2( (RO) sMOVE CONTROL STATUS REGISTER 
RMCS2(RO), R2 

(SP)+, RMCS2(RO) :POP STACK INTO RMCS2(RO) 
R1 .RMDB ( RO) sMOVE DATA BUFFER 

RMDB(RO), R2 

(SP) +, ERRVEC+2 z:POP STACK INTO ERRVEC+2 
(SP)+,ERRVEC :2:P0P STACK INTO ERRVEC 

3$ :NO BUS TIMEOUT OCCURRED 

(SP)+, (SP) + ; ADJUST STACK 

(SP) +, ERRVEC+2 POP STACK INTO ERRVEC+2 
i ara > ;POP STACK INTO ERRVEC 

a42 : STAND ALONE MODE ? 

2$ zNO!! 

START1 : YES-GO GET S$BASE 

$DEVM :FUDGE NO DRIVES IN MAP 

$SEOP :RETURN TO $EOP 


WEARS eESASASRASZLA£LESEERARRALELESSR AREAS ALES A RR RRS RRR RRR AR RA RADA SD SD, 


i*TEST 2 


STREAK EEE REE REE ERR RARER RRR ED 


Tsl2: 


WRITE, READ ZEROS 


;SCOPE CALL 
:START OF TEST 


ASTACK , SP s INITIALIZE STACK POINTER 
SE ,RO ;RO = UNIBUS ADDRESS 
TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
#2, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 


° SERRATE REET TETRA ERAERERAEA RARER AEARAERRERERER RAR REED 


:LOOP #1 


FORMAT ,WRITE,READ 


SEQ 0071 


a a 
i ee SS 


— 


CZRMOBO RMOS/3/2 FCTNL TST 3 
WRITE, READ ZEROS 


Te 


37 
38 010514 
39 


40 
41 910314 
010320 


010322 
010330 


44 010334 
45 Pipers 


69 010516 
70 


’ 
010516 


004737 
154130 


000404 
000240 


012737 


004737 
000405 


037316 


011274 


000000 
000000 
106436 
177376 
010000 
000063 


§ 040242 


070426 
011274 
072060 


000001 
042174 


001553 
000034 
000006 


000000 
000200 
043350 
011274 


042774 
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001446 


001412 


001174 
001176 


;PREPARE DEVICE FOR TEST 
;TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 


:CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 


sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘'SKI'’ OR ‘PIP’’ IS SET 
A a A RE CAL IBRAT ION 

O TO 2$ IF NO ERROR 
‘RETURN HERE IF ERROR 
;ERROR #4 DEFINED BY TSTPRP SUBROUTINE 


:GO TO 25$ IF ERROR 


; CYLINDER = 0 

TRACK = 0, SECTOR = 0 

:BUS ADDRESS 

72 + 256. WORDS (2'S COMP) 

:16 BIT FORMAT 

;WRITE HEADER AND DATA COMMAND 


;CALL BAD SECTOR MODULE 
:GO TO 3$ IF NO ERROR 

;TYPE BAD SECTOR MESSAGE 

ZERROR # DEFINED BY BADSCT SUBROUTINE 


:GO TO 25$ IF ERROR 


:STARTING ADDRESS OF PATTERN 
:RANGE OF PATTERN 
>GG GENERATE BUFFER FOR FORMAT 


:R2 = BYTE ENTRY POSITION 


; TERMINATE TABLE 


7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
;GO TO 5$ IF NO ERROR 


;RETURN HERE IF ERROR 
;ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 25$ IF ERROR 


1$: 
sPREPARE DEVICE FOR TEST 
JSR PC,TSTPRP 
. WORD 154130 
BR 2$ 
NOP 
EMT 
JMP 25$ 
gL ond PARAMETERS AND GENERATE DATA BUFFER 
MOV #0,RMDCO 
MOV #0,RMDAO 
MOV #BUF ONE , RMBAO 
MOV #-258. ,RMWCO 
MOV #FMT16,RMOFO 
MOV #WH!GO,RMCS10 
: VERIFY THAT SECTOR IS NOT BAD 
JSR. PC ,BADSCT 
BR 3$ 
TYPE ~SCTMSG 
EMT 
JMP 25$ 
3$: 
MOV #ZEROS ,STMPO 
MOV 1,STMP1 
JSR PC, GENBUF 
SETUP _— a Fe COMMAND 
MOVB HRMDC , (R2) + 
MOVB #RMDA, (R2) + 
MOVB HARMBA , (R2) + 
MOVB ARMWC , (R2) + 
MOVB #RMOF , (R2)+ 
MOVB #RMCS1, (R2)+ 
- MOVB #200, (R2) 
JSR PC ,PUT 
BR 5$ 
NOP 
EMT 
JMP 25$ 
5$: 


; SETUP a INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS 


3GO TO GETSTS SUBROUTINE 


- ; ay pe 
SEQ VV ‘ 


A — 


—_———— 


| tas med +e FCTNL TST 3 


WRITE. READ ZEROS 


010522 


76 010526 
010532 


77 010544 


80 010544 


81 010564 
84 010564 
85 010572 
$0 010574 


95 010574 
010600 


— — 


RALALVLSSRLESRE 
Orono 


® oe ate ee es 
OOCoCoocoo°co 


: 


012757 
000410 


004737 
154130 


000404 


tt ot et = CHO OO 
(bs 9 
pre Pha he i ty te 
Nm 
Nm 


043672 


043060 
011274 


056572 


011274 


010574 


037316 


011274 


106442 
177400 


000061 
001553 
000006 
000034 
000032 
000004 
000002 
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;WAIT FOR COMMAND " COMPLETE 
JSR PC,TIMOUT :GO TO TIMOUT SUBROUTINE 


;GO GET REGISTER STATUS 
JSR PC,GET :GO READ i) ap ig WITH GET SUBROUTINE 


BR 6$ + GO TO 6$ IF NO ERR 
NOP *RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY GET SUBROUTINE 
JMP 255 =GO TO 25% IF ERROR 
6$: 
sVERIFY RESULTS OF WRITE COMMAND 
JSR PC ,DTASTS 3;GO VERIFY RESULTS OF DATA TRANSFER 
BR 7$ =GO TO 7$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
7 JMP 25$ :GO0 TO 25$ IF ERROR 
sMOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #8$,$LPERR 
BR 9$ :SKIP TO WRITE OPERATION 
g PERSERASARSERSKARERK ERTS ASS LAS SKA AHAE ASA KAA SARS AK AAAS AAeA Ve eeeNes 
“LOOP #2 WRITE ,READ 
8$: 
sPREPARE DEVICE FOR TEST 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
154130 : TASK DESCRIPTOR AS FOLLOWS: 
s;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
oeee s CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
*RECALIBRATE IF ‘’SKI'* OR ‘PIP’’ IS SET 
* VERIFY RECAL IBRATION 
BR 9$ -GO TO 9$ IF NO ERROR 
NOP *RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
os JMP 25$ :GO TO 25$ IF ERROR 


+ a PARAMETERS AND EXCUTE COMMAND 


MOV ABUF ONE +4 , RMBAO ;MOVE MEMORY ADDRESS 
; CHANGE WORD COUNT 
sWRITE DATA C 


OMMAND 
;LOAD PUT REGISTER INDEX TABLE 


MOVB #RMWC, (Ro) + 


OA ONE te ee ek a eet ee Oe ee ee 


SEQ 0073 
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T2 WRITE, READ ZEROS SEQ 0074 
107 010666 112722 000000 MOVB #RMCS1,(R2)+ 
108 010672 112722 600200 MOVB #200, (R2)+ TERMINATE TABLE 
110 010676 004737 043330 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
010702 000404 BR 11$ :GO TO 11$ IF NO ERR OR 
| 010704 000240 NOP “RETURN HERE IF ERROR 
| 910706 ' 104000 EMT -ERROR # DEFINED BY PUT SUBROUTINE 
| 010710 000137 011274 JMP 25% *GO TO 25$ IF ERROR 
| 113 010714 11$: 
| 113 SETUP GET INDEX TABLE TO READ ALL REGISTERS 
| a 010714 0604737 042774 JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 
| 115 :WAIT FOR COMMAND TO COMPLETE 
| “ai 010720 004737 043672 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
117 :GO GET REGISTER STATUS 
118 010724 004737 043060 JSR PC, GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
010730 000404 BR 12$ :GO TO 12$ IF NO ERROR 
610732 000240 NOP “RETURN HERE IF ERROR 
010734 104000 | EMT ERROR # DEFINED BY GET SUBROUTINE 
010736 000137 011274 JMP 25$ *GO TO 25$ IF ERROR 
19 010742 12$: 
121 :VERIFY RESULTS OF WRITE COMMAND 
122 010742 004737 044056 JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
010746 000405 BR 13$ :GO TO 13$ IF NO ERROR 
010750 000240 NOP RETURN HERE IF ERROR 
010752 104000 EMT ERROR * DEFINED BY PRIERR SUBROUTINE 
010754 004736 JSR PC. a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
_ 010756 000137 011274 JMP 25$ :GO TO 25$ IF ERROR 
12% 010762 138: : 
124 010762 004737 056572 JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
010766 000405 BR 14$ :GO TO 14$ IF NO ERROR 
010770 000240 NOP “RETURN HERE IF ERROR 
010772 104000 EMT ERROR # DEFINED BY DTASTS SUBROUTINE 
- 010774 004736 JSR PC, a(SP)+ :GO0 BACK FOR MORE ERROR CHECKS 
010776 000137 011274 JMP 25$ -GO TO 55s IF ERROR 
125 011002 14$: 
126 011002 004737 044710 JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
011006 000405 BR 15$ -GO TO 15$ IF NO ERROR 
011010 000240 NOP :RETURN HERE IF ERROR 
011012 104000 . EMT ERROR # DEFINED BY SECERR SUBROUTINE 
011014 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
011016 000137 011274 JMP 25$ =GO TO 55$ IF ERROR 
327 011022 15$: 
129 : CHANGE LOOP ADDRESSES 
130 011022 012737 011032 001124 MOV #16$,$LPERR 
131 011030 000410 BR 17$ :SKIP TO NEXT OPERATION 
133 REECE AEAEARAERERERERERSE 
HF “LOOP 43 READ 
136 011032 16$: 
138 :PREPARE DEVICE FOR TEST 


re ee a ne ee ee me ee 
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| <2 
Te WRITE, READ ZEROS SEQ 0075 
139 011032 004737 037316 JSR PC,TSTPRP ;PREPARE DEVICE FOR TEST 
011036 15413506 -WORD 154150 ; TASK DESCRIPTOR AS FOLL 


OWS : 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER & SELECT DEVICE 
| : VERIFY CONTROLLER CLEAR OPERATION 
| ;PACK ACKNOWLEDGE If VOLUME NOT VALID 
| : VERIFY PACK ACKNOWLEDGE 
| :RECALIBRATE IF ‘‘SKI'' OR ‘PIP’ IS SET 
| : VERIFY RECALIBRATION 
| 
| 


011040 000404 BR 17% :GO TO 17$ IF NO ERROR 
011042 000240 NOP ;RETURN HERE IF ERROR 
011044 104000 EMT ; sERROR # DEFINED BY TSTPRP SUBROUTINE 
011046 000137 011274 JMP 25$ ;GO TO 25$ IF ERROR 

et 011052 17$: 

142 ;SETUP PARAMETERS AND EXCUTE COMMAND 

143 011052 18$: 

144 011052 012737 107446 001416 MOV ABUF TWO+4 , RMBAO ; CHANGE MEMORY ADDRESS 

145 011060 012737 000071 001412 MOV #RD!GO,RMCS10 ;READ DATA COMMAND 

146 011066 012702 001553 MOV APUTINX,R2 ;LOAD PUT REGISTER INDEX TABLE 

147 011072 112722 MOVB ARMDA, (R2) + 

148 011076 112722 000032 MOVB ARMOF , (R2) + 

149 011102 112722 000034 MOVB ARMDC , (R2)+ 

150 011106 112722 000004 MOVB ,(R2)+ 

151 011112 112722 0002 MOVB ARMWC , (R2) + 

152 011116 112722 000000 MOVB ARMCS1, (R2)+ 

1s 011122 112712 000200 MOVB #200, (R2) 

155 011126 004737 0453530 JSR PC ,PUT ;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
011132 000404 BR 19$ ;G0 TO 19$ IF NO ERROR 
011134 000240 NOP ;RETURN HERE IF ERROR 
0111356 104000 EMT : ERROR # DEFINED BY PUT SUBROUTINE 
011140 000137 011274 JMP 25$ GO TO 25$ IF ERROR 

128 011144 19$: 

158 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 

159 011144 6)4737 042774 JSR PC,GETSTS - 360 TO GETSTS SUBROUTINE 

160 ;WAIT FOR COMMAND TO COMPLETE 

161 011150 004737 043672 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

162 :GO GET REGISTER STATUS 

163 011154 004737 043060 — JSR PC,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
011160 0004 BR 20$ :GO TO 20$ IF NO ERROR 
911162 000240 NOP ;RETURN HERE IF ERROR 
011164 104000 EMT ;ERROR # DEFINED BY GET SUBROUTINE 
011166 000157 011274 JMP 25$ :GO TO 25$ IF ERROR 

fe 011172 20$: 

166 ;VERIFY RESULTS OF READ COMMAND 

167 011172 004737 044056 JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
011176 000405 BR 21$ :GO TO 21$ IF NO ERROR 
011200 000240 NOP ;RETURN HERE IF ERROR 
011202 104000 EMT ;ERROR # DEFINED BY PRIERR SUBROUTINE 
011204 004736 JSR PC,a@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
011206 000137 011274 JMP 25$ | :GO TO 25$ IF ERROR 

168 011212 21$: 
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WRITE, READ ZEROS SEQ 0076 
169 911212 004737 056572 JSR PC ,DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
011216 900405 BR 22$ ;GO TO 22$ IF NO ERROR 
011220 000240 NOP :RETURN HERE IF ERROR 
011222 104000 EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
011224 004736 JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
011226 000137 011274 IMP 5$ :G0 TO 25$ IF ERROR 
170 011232 22$: 
171 011232 004737 044710 JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
011236 0 BR 23$ :GO TO 23$ IF NO ERROR 
011240 000240 NOP ;RETURN HERE IF ERROR 
011242 104000 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
011244 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
011246 000137 011274 IMP 5$ :G0 TO 25$ IF ERROR 
Ie 011252 23$: 
174 :GO VERIFY DATA 
175 011252 04737 042432 JSR PC, CMPBUF :GO COMPARE WRITE, READ DATA BUFFERS 
011256 106442 -WORD BUFONE+4 ; STARTING ADDRESS OF WRITE BUFFER 
011260 107446 -WORD BUF TWO+4 ; STAR Pg ADDRESS OF READ BUFFER 
611262 000404 BR 24$ :GO TO 24$ IF NO ERROR 
011264 000240 NOP :RETURN HERE IF ERROR 
0112 104000 EMT sERROR # DEFINED BY CMPBUF SUBROUTINE 
011270 0001357 011274 JMP 25$ ;GO TO 25$ IF ERROR 
176 011274 24$: 
177 
HA 011274 25$: 
180 SLE ER EER EAE ER 
:*TEST 3 WRITE, WRITE CHECK ZEROS 
SRR ERE RARER IR EERE EERE REE RE REE EREREE EEE EEE KK 
011274 Ysi3: 
011274 000004 SCOPE :SCOPE CALL 
011276 000240 NOP ;START OF TEST 
0113500 012706 001100 MOV ASTACK,SP s INITIALIZE STACK POINTER 
011304 0135700 001276 MOV $BASE ,RO ;RO = UNIBUS ADDRESS 
011310 013701 001466 MOV TSTQUE ,R1 3(R1) = DEVICE BEING TESTED 
181 011314 012737 000003 001226 MOV #3,$TESTN 7sSET TEST NUMBER IN APT MAIL BOX 
182 SRR EERE RRR EEE ERE EER EER ER EERE ERE EEE EEE RE REE 
i ;LOOP #1 FORMAT ,WRITE,WRITE CHECK DATA 
ize 011322 1$: 
187 ;PREPARE DEVICE FOR TEST 
188 011322 004737 037316 JSR PC. TSTPRP sPREPARE DEVICE FOR TEST 
011326 154130 -WORD 154150 : TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
: VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE = 
RECALIBRATE IF ‘‘SKI’* OR ‘PIP’’ IS SET 
: VERIFY RECAL IBRAT ION 
011330 000404 BR 2$ TO 2$ IF NO ERROR 
011332 000240 NOP ‘RETURN HERE IF ERROR 
011334 104000 EMT ;ERROR # DEFINED BY TSTPRP SUBROUTINE 
011336 000137 012252 JMP 24$ :GO TO 24$ IF ERROR 
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040242 
070426 
012252 
072060 
000001 
042174 


001553 
000034 
000006 


000002 
000032 
000000 
000200 
0435350 


012252 


042774 


043672 ~ 


043060 


012252 


056572 
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001412 


001174 
001176 


LOAD PARAMETERS AND GENERATE DATA BUFFER 


2$: 
MOV #0 ,.RMDCO sCYLINDER = 0 
MOV #0,RMDAO TRACK = 0, SECTOR = 0 
MOV #BUF ONE , RMBAO :BUS ADDRESS 
MOV #-258. ,RMWCO 12 + 256. WORDS (2°S COMP) 
MOV #FMT16,RMOFO 3:16 BIT FORMAT 
MOV #WH!GO,RMCS10 “WRITE HEADER AND DATA COMMAND 
: VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT 7;CALL BAD SECTOR MODULE 
-GO TO 3$ IF NO ERROR 
TYPE ,SCTMSG ; TYPE BAD SECTOR MESSAGE 
EMT * ERROR # DEFINED BY BADSCT SUBROUTINE 
- JMP 24$ :G0 TO 24$ IF ERROR 
MOV #ZEROS,STMPO : STARTING ADDRESS OF PATTERN 
MOV #1,$1M sRANGE OF PATTERN 
JSR PC , GENBUF :;GO GENERATE BUFFER FOR FORMAT 
:SETUP PARAMETERS AND EXCUTE COMMAND 
MOV #PUTINX,R2 :R2 = BYTE ENTRY POSITION 
MOVB . A#RMDC,(R2)+ 
MOVB * #RMDA, (R2)+ 
MOVB ARMBA , (R2) + 
MOVB ARMWC , (R2) + 
MOVB ARMOF , (R2) + 
MOVB ARMCS1, (R2)+ 
on MOVB #200, (R2) ; TERMINATE TABLE 
JSR PC ,PUi :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 5$ :GO TO 5$ IF NO ERROR 
NOP > RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PUT SUBROUTINE 
. JMP 245 =GO TO 24$ IF ERROR 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS’ :GO TO GETSTS SUBROUTINE 
z;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
:GO GET REGISTER STATUS 
JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR -GO TO 6$ IF NO ERROR 
NOP * RETURN HERE IF ERROR 
EMT :ERROR # DEFINED BY GET SUBROUTINE 
JMP 24$ :GO TO 24$ IF ERROR 
6$: 
:;VERIFY RESULTS OF WRITE COMMAND 
JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 7$ GO TO 7$ IF NO ERROR 
NOP “RETURN HERE IF ER 


ROR 
sERROR # DEFINED BY DTASTS SUBROUTINE 


SEQ 0077 


—— eee —— 


re eee ee ee ee eee —- == ST a ee _ _ = —_ _ —_—_—__- _ —— —_— 
—_— —_— — mee ee ee - - —— - ——- - -- —— - - a 
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T3 WRITE, WRITE CHECK ZEROS SEQ 0078 
011564 004736 JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
011566 000137 612252 JMP 24$ *GO TO 24% IF ERROR : 

228 011572 7$: 
230 :MOVE LOOP ADDRESSES TO NEXT OPERATION 
231 011572 012737 011602 001124 MOV #8$,$LPERR 
232 011600 000410 BR 9$ :SKIP TO WRITE OPERATION 
Sar 5 TREKKA EERE ERER REREAD 
33 “LOOP #2 WRITE,WRITE CHECK DATA 
237 011602 8$: 
239 ; PREPARE DEVICE FOR TEST 
240 011602 004737 037316 PC, TSTPRP :PREPARE DEVICE FOR TEST 
011606 154130 JBORD 154130 - TASK DESCRIPTOR AS FOLLOWS: 


;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 

: VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
sVERIFY PACK ACKNOWLEDGE 

SRECALIBRATE IF ‘'SKI'' OR ‘PIP’’ IS SET 
hg ay RECAL IBRAT ION 


011619 000404 BR 9$ O TO 9$ IF NO ERROR 
011612 000240 3 2 NOP ‘RETURN HERE IF ERROR 
011614 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
011616 000137 012252 JMP 24$ 360 TO 24$ IF ERROR 

re 011622 9$: 

243 : ;SETUP PARAMETERS AND EXCUTE COMMAND 

244 011622 10$: 

245 011622 012737 106442 001416 MOV #BUF ONE +4 , RMBAO ; CHANGE MEMORY ADDRESS 

246 011630 012737 177400 001414 MOV #-256. ,RMWCO ; CHANGE WORD COUNT 

247 011636 012737 000061 001412 MOV AWD !GO,RMCS10 ;WRITE DATA COMMAND 

248 011644 012702 001555 3 MOV #PUTINX ,R2 , :LOAD PUT REGISTER INDEX TABLE 

249 011650 112722 000006 MOVB : #RMDA,(R2)+ 

250 011654 112722 000034 MOVB ARMDC , (Re) + 

251 011660 112722 000032 MOVB HRMOF., (R2) + 

252 011664 1127 04 MOVB ARMBA , (R2) + 

253 011670 112722 000002 ~ MOVB ARMWC , (R2) + 

254 011674 112722 000000 MOVB #RMCS1, (R2)+ | 

$22 011700 112722 000200 MOVB #200, (R2)+ | ; TERMINATE TABLE 

257 011704 004737 0435350 In OPER | ;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
011710 000404 : BR 11$ :GO TO 11$ IF NO ERROR 
011712 000240 NOP ;RETURN HERE IF ERROR 
011714 104000 . EMT sERROR # DEFINED BY PU7 SUBROUTINE 
017716 000137 012252 eee 24$ ;G0 TO 24$ IF ERROR 

$26 011722 11$: 

260 sSETUP GET INDEX Nyy <3 e te READ ALL REGISTERS 

261 011722 004737 042774 JSR PC,GETS :GO TO GETSTS SUBROUTINE 

262 ;WAIT FOR COMMAND TO COMPLETE 

263 011726 004737 043672 JSR PC,TIMOUT :GO TO TIMOUT SUBROUTINE 


264 :GO GET REGISTER STATUS 
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286 012040 
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000404 
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043060 
012252 


044056 


012252 
056572 


012252 
044710 


012252 


012040 


037316 


012252 


— — 
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001124 


JSR 
BR 


NOP 

EMT 

JMP 
12$: 


“VERIFY RESULTS 
JSR 


NOP 
EMT 
JSR 
JMP 
13$: 


148: 


15$: 


MOV 
BR 


PC,GET 
12$ 


24% 


PC ,a(SP)+ 
24$ 


PC ,DTASTS 
14$ 


PC,a@(SP)+ 
24$ 


PC,SECERR 
15$ 
PC ,a(SP)+ 
24$ 


; CHANGE LCOP ADDRESSES 
: oO . SLPERR 


CF WRITE COMMAND 
PC,PRIERR 
133 


RROR 
D BY GET SUBROUTINE 
RROR 


;GO CHECK FOR PRIMARY FRRORS 
NO ERROR 


+ G0 TO 13$ IF 

;RETURN HERE IF ERROR 

; ERROR a phe BY PRIERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 


:G0 TO 24$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
;G0 TO 14$ IF NO ERROR 


RETURN HERE IF ERROR 

; ERROR # DEFINED BY DTASTS SUBROUTINE 
BACK FOR MORE ERROR CHECKS 

:GO TO 24$ IF ERROR 


= ts FOR ge tl ERRORS 
O 15$ IF NO ERROR 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR — 

:GO BACK FOR MORE ERROR CHECKS 

:GO TO 24$ IF ERROR 


:SKIP TO NEXT OPERATION 


s3 RAR GRASAAALALRSALEASLSARARALASSSEAAAASARASAASLA SAAS AAAS AR ARAR ASSAD SS 2B 


WRITE CHECK DATA 


:LOOP #3 
16$: 


;PREPARE DEVICE FOR TEST 
JSR PC TST 


17$: 


17$ 


24$ 


;PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 

: VERIFY CONTROLLER CLEAR OPERATION 

:PACK AC DGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF. "SKI'' OR “PIP'* 1S SET 
: VERIFY RE CAL IBRAT 
;G0 TO 17$ IF NO ERROR 
“RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBR TINE 
:GO 10 24$ IF ERROR 


ise PARAMETERS AND EXCUTE COMMAND 





LS A Ee A a 


SEQ 0079 


t- 
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TS 


WRITE, 


291 012060 


296 012106 


#3 
oO 


Oooo0oo° oo 


S 
ed eed ed eed —_w’d ond aad 
Mmnrosnonnrm = fronror 
— 2 od =) =) —_ —d .d 
~~ WN No 
ROOK MmOnM 


012246 
318 012252 
319 
320 012252 
321 
322 


004737 


004737 


WRITE CHECK ZEROS 


000051 
001553 


012252 


042774 


043672 


043060 


012252 


044056 


012252 
056572 


012252 
044710 


012252 
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21$: 


19$: 
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#WCD!GO, —-". ;WRITE CHECK DATA DATA COMMAND 


MPUTINX,R ;LOAD PUT REGISTER INDEX TABLE 
#RMDA, (R2) + 
#RMOF , (RZ) + 
ARMDC, (RZ) + 

, (R2)+ 
ARMWC , (R2) + 
#RMCS1,(R2)+ 
#200, (R2) 
PC ,PUT :GO WRITE sy ge WITH PUT SUBROUTINE 
19$ :60 TO 19% IF NO ERROR 

TURN HERE IF ERROR 
‘ERROR # DEFINED BY PUT SUBROUTINE 

24$ :GO TO 24$ IF ERROR 


: SETUP = INDEX TABLE READ ALL REGISTERS 


;WAIT er” sigs TO COMPLETE 


:GO GET REGISTER STATUS 
JSR PC,GET 


BR 


NOP 

EMT 

JMP 
20$: 


; VERIFY RESULTS 
JSR 


NOP 
EMT 
JSR 
JMP 


223: 


23$: 
24$: 


JSR 


PC,GETSTS :GO TO GETSTS SUBROUTINE 


PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


;GO READ REGISTER(S) WITH GET SUBROUTINE 
;GO TO 20$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 


24$ “GO TO 24$ IF ERROR 
+ 
OF WRITE CHECK COMMAND. 
PC PRIERR G0 CHECK FOR PRIMARY ERRORS 
21§ GO TO 21$ IF NO ERROR 
RETURN. HERE IF 


ERROR 
SERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 24$ IF ERROR 


;GO VERIFY RESULTS OF DATA TRANSFER 
:G0 TO 22$ IF NO ERROR 
RETURN HERE IF ERROR 
[ERROR # 9 Mg BY DTASTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
;GO TO 268 IF E 
:GO CHECK FOR SECONDARY ERRORS 
;GO TO 235$ IF NO ERROR 


:RETURN HERE IF ERROR 
| ;ERROR # DEFINED BY SECERR SUBROUTINE 
PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
24$ :GO TO 24$ IF ERROR 


PC a(SP)+ 
24$ 
PC .DIASTS 
22$ 


PC ,a(SP)+ 
24$ 


PC,SECERR 
23$ 


SARA AEAAEREREAEREREREEEAEERERERERERARERARAARRAREAHERERERORERR ARES 


ee 


SEQ 0080 


-_——— _ ee ee ewe - — ee - ——- ——— 
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14 ITE, WRITE CHECK ZEROS W/ WCE ERROR SEQ 0081 
*TEST 4 WRITE, WRITE CHECK ZEROS W/ WCE ERROR 
ERE EERE EEE REAR RERERAREEERAREEEREREHERHER ERE 
012252 +eT4: 
012252 000004 SCOPE ;SCOPE CAL 
012254 000240 NOP * START OF TEST 
| 012256 012706 001100 MOV #STACK,SP s INITIALIZE STACK POINTER 
| 012262 013700 001276 MOV SBASE ,RO “RO = IBUS ADDRESS 
| 012266 013701 001466 MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
353 012272 012737 000004 001226 MOV #4 ,$TESTN >;SET TEST NUMBER IN APT MAIL BOX 
324 SD IT REE EERE ERATE EERE EE 
$52 ;LOOP #1 FORMAT ,WRITE,WRITE CHECK DATA 
$50 012300 1$: 
329 : PREPARE _— FOR TEST 
330 012300 004737 037316 PC,TST dill ;PREPARE DEVICE FOR TEST 
012304 154130 “BORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
s SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 


KA EDGE VOLUME NOT VALID 
‘VERIFY PACK ACKNOWL EDGE 
} ;RECALIBRATE IF *’SKI’’ OR ‘PIP’ IS SET 
; VERIFY RECAL IBRATION 
012306 000404 BR 2$ :GO TO 2$ IF NOE 


012310 000240 NOP ;RETURN HERE IF ERROR 
012312 104000 EMT ;ERROR # DEFINED BY TSTPRP SUBROUTINE 
331 012314 000137 015446 JMP 29$ 760 TO 29% IF ERROR 
332 ;LOAD PARAMETERS AND GENERATE DATA BUFFER 
335 012320 2$: 
334 012320 012737 O00000 001446 MOV #0 ,,RMDCO - CYLINDER = 0 
335 012326 012737 000000 001420 MOV #0 ,,RMDAO ; TRACK = 0, SECTOR = 0 
336 012334 012737 1064356 001416 MOV #BUF ONE , RMBAO ;BUS ADDRESS 
337 012342 012737 177376 001414 ~ MOV 4-258. ,RMWCO 2 + a WORDS (2°S COMP) 
338 012350 012737 010000 001444 MOV #FMT16,RMOFO :16 BIT FORMAT 
<p 012356 012737 000063 001412 MOV Mul: GO, RMCS10 [WRITE HEADER AND DATA COMMAND 
341 :VERIFY THAT SECTOR IS NOT BAD 
012364 004737 040242 JSR PC ,BADSCT ct BAD SECTOR MODULE 
C12370 000405 BR 3$ :GO TO 3$ IF NO ERROR 
012372 104401 070426 TYPE -SCTMSG ; TYPE OBAD SECTOR MESSAGE 
012376 104000 EMT SERROR # PER BY BADSCT SUBROUTINE 
342 so 000137 013446 35 JMP 29S - :GO TO 29$ IF ERROR 
343 012404 012737 072060 001174 MOV. #ZEROS , STMPO Sie Ovens OF PATTERN 
344 012412 012737 000001 001176 MOV #1 ,$TMP1 ANGE OF PATTERN 
A 012420 004737 042174 JSR PC ,GENBUF ‘60 GENERATE BUFFER FOR FORMAT 
347 012424 012702 001553 MOV #PUT INX ,R2 :R2 = BYTE ENTRY POSITION 
348 012430 112722 000034 MOVB #RMDC, (R2) + 
349 012434 112722 000006 MOVB #RMDA , (Re) + 
350 012440 112722 000004 MOVB #RMBA, (R2) + 
351 012444 112722 000002 MOVB ARMWC, (R2) + 
352 012450 112722 000052 MOVB A#RMOF , (R2) + 
353 012454 112722 000000 MOVB #RMCS1, (R2)+ 


mt ne me mm em me me 


ee ee = 


CZ7RMOBO RMOS/3/2 FCINL TST 3 
! WRITE, WRITE CHECK ZEROS W/ WCE ERROR 


ii 


14 


354 012460 
355 012464 


012502 


WAG 
WIN 
WaOn 


012502 


tee SS 


2544 
369 012550 
370 


371 
372 012550 
373 012556 
374 


375 
ites 


377 
378 012560 
379 


380 
381 012560 
012564 


112772 
004737 
000404 
000240 
104000 
000137 
004737 
004737 


004737 


000137 


012737 
000410 


004737 
154130 


000404 


000240 
104000 
000137 


000200 
043530 


013446 


042774 


043672 


043060 


013446 


056572 


015446 


012560 


037516 


013446 


001124 


4$: 


S$: 


MOVB 
JSR 
BR 


NOP 
EMT 
JMP 


#200; (R2) 


PC,PuUT 
5$ 


29$ 


. # 
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; TERMINATE TABLE 


3GO WRITE pr pet a WITH PUT SUBROUTINE 
;GO_ TO 5$ IF NO ERROR 
ZRETURN HERE IF ERROR 


;ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 29% IF ERROR 


; SETUP a INDEX TABLE TO READ ALL REGISTERS 


=GO EGT 


6$: 
: VERIFY 


7$: 


PC,GETSTS 


;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 


REGISTER oe 


JSR 
BR 
NOP 
EMT 
JMP 


RESULTS OF WRITE COMMAND 
JSR 


BR 

NOP 
EMT 
JSR 
JMP 


29% 
PC,DTASTS 
7$ 


PC,a(SP)+ 
29S 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 


;GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 6$ IF NO ERROR 


;RETURN HERE IF ERROR 
sERROR # DEFINED Bi GET SUBROUTINE 


=GO TO 29$ IF E 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 7$ IF NO ERROR 
;RETURN HERE IF ERROR 


SERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 29$ IF ERROR 


MOVE a ADDRESSES eld OPERATION 


#83 ,$LP 
9$ 


:SKIP TO WRITE OPERATION 


{EAA EAEREAEAAAEARAEAEKAAERARAAKEKARAAREKRAERAARAEARKEAEERAEE EEE 


WRITE ,WRITE CHECK DATA 


. “LOOP #2 
8$: 


7 PREPARE a FOR TEST 


9$: 


. WORD 


PC, TSTPRP 
154130 


9$ 


29S 


;PREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 

:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 


;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

:RECALIBRATE IF ‘'SKI'' OR 'PIP'' IS SET 
: VERIFY RECALIBRATION 

;GO TO 9$ IF NO ERROR 

:RETURN HERE IF ERROR 

:ERROR # DEFINED BY TSTPRP SUBROUTINE 
;GO TO 29% IF ERROR 


SEQ 0082 


cenaatimeeeee - 


i 
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WRITE, WRITE CHECK ZEROS W/ WCE ERROR SEQ 0083 


tm em ee me + ee ee. + ee 
; 


384 >SETUP PARAMETERS AND EXCUTE COMMAND 

385 012600 10$: 

386 012600 012737 177400 001414 MOV #-256. ,RMWCO ; CHANGE WORD COUNT 

387 012606 012737 106442 001416 MOV #BUF ONE +4, RMBAO ; CHANGE MEMORY ADDRESS 

388 012614 012737 000061 001412 MOV #WD!GO,RMCS10 “WRITE DATA COMMAND 

389 012622 012702 001553 MOV #PUTINX,R2 ;LOAD PUT REGISTER INDEX TABLE 

90 012626 112722 0006 MOVB #RMDA, (R2) + 

391 012632 112722 000034 MOVB ARMDC, (R2)+ 

392 012636 112722 32 MOVB #RMOF , (R2) + 

393 012642 112722 000004 MOVB #RMBA , (R2) + 
012646 112722 000002 MOVB ARMWC , (R2) + 

395 012652 112722 000000 | MOVB #RMCS1,(R2)+ 

012656 112722 000200 MOVB #200, (R2)+ : TERMINATE TABLE . 

398 012662 004737 043330 JSR PC ,PUT :;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
012666 000404 BR 11$ 7 :GO TO 11$ IF NO ERROR 
012670 000240 NOP ;RETURN HERE IF ERROR 
012672 104000 EMT ;ERROR #4 DEFINED BY PUT SUBROUTINE 
012674 000137 013446 JMP 295 :GO TO 29$ IF ERROR 

ian C12700 11$: 

401 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 

‘ne 012700 004737 042774 JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 

403 :WAIT FOR COMMAND TO COMPLETE 

606 012704 004737 043672 JSR PC, TIMOUT :;GC TO TIMOUT SUBROUTINE 

405 :GO READ STATUS FOR WRITE COMMAND 

406 012710 004737 043060 JSR PC,GET ;GO READ yg flgte igh + WITH GET SUBROUTINE 
012714 000404 BR 12$ >GO TO 12$ IF NO ERROR 
012716 000240 NOP :RETURN HERE IF ERROR 
012720 104000 EMT = ERROR # DEFINED BY GET SUBROUTINE 
012722 000137 013446 JMP 29S :GO TO 29$ IF ERROR 

pe 012726 12$: 

409 : CHECK FOR ERRORS gps WRITE OPERATION 

410 012726 004737 044056 JSR PC .PRIERR ;GO CHECK FOR PRIMARY ERRORS 
012732 000405 BR :GO TO 13$ IF NO ERROR 
012734 000240 NOP > RETURN HERE IF ERROR 
012736 104000 EMT : : ERROR # DEFINED BY PRIERR SUBROUTINE 
012740 004736 JSR PC ,a(SP)+ BACK FOR MORE ERROR CHECKS 
C12742 000137 013446 JMP 29S | “60 TO 29$ ‘IF ERROR 

411 012746 13$: : 

412 012746 004737 056572 JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
012752 000405 RR 14$ :GO TO 14% IF NO ERROR 
012754 000240 NOP RETURN HERE IF ERROR 
012756 104000 EMT “ERROR # DEFINED BY DTASTS SUBROUTINE 
012760 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
012762 000137 013446 JMP 29$ :GO TO 29$ IF ERROR 

413 012766 14$: 

414 0127 004737 044710 JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
012772 000405 BR 15$ -GO TO 15$ IF NO ERROR 
012774 00024 NOP “RETURN HERE IF ERROR 
012776 104 EMT “ERROR # DEFINED BY SECERR SUBROUTINE 
013000 004736 JSR PC,a(SP)+ :;GO BACK FOR MORE ERROR CHECKS 
013002 000137 013446 JMP 29$ :GO TO 29% IF ERROR 

415 013006 15$: 


ee 


oe 


CZ7RMOBO 
T% 


416 


aL 
WRITE, 


013014 


013014 
013020 


013024 
013030 


013032 


SRVSAW BV 


2 
WR 


FCTNL 
ITE C€ 


012703 
050337 


004757 
154130 


000404 


004737 
004737 


004737 
000404 
000240 


TST 3 
HECK ZEROS wW/ WCE ERROR 


000001 
107440 


037316 


013446 


000051 
001553 


043330 


013446 


042774 


043672 


04 3060 


G 7 
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417 
ee 013006 012737 013014 001124 


001412 


17$: 
;PREPARE DEVICE 
JSR 


; CHANGE a ADDRESSES 


:LOOP 43 
16$: 


MOV 
BIS 


. WORD 


BR 

NOP 
EMT 
JMP 


18$: 
READ DATA FROM 
19$: 


20$: 


#16$,$LPERR 


#1,R3 
R3,BUF TWO-2 


FOR TEST 
PC, TSTPRP 
154130 


18$ 
29S 


DEVICE 
#WCD!GO,RMCS10 
X,R2 


#200, (R2) 
PC PUT 
20$ 


29$ 


SF EAAARAAH RARER ARERARERAERAHAAAAAAERAARAARARAERRARAHHEH HERA 


WRITE CHECK DATA 


;R3+WCE BIT POSITION 
; CHANGE LAST WORD OF BUFFER 


;PREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER & SELECT DEVICE 


: VERIFY CONTROLLER CLEAR OPERATION 


sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 

:RECALIBRATE IF ‘'SKI'’ OR 'PIP’’ IS SET 
> VERIFY RECAL IBRATION 

:GO TO 18$ IF NO ERROR 


ZRETURN HERE IF ERROR 
;ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 29% IF ERROR 


sWRITE CHECK DATA DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE © 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 20% IF NO ERROR 

SRETURN HERE IF ERROR 

7ERROR # DEFINED BY PUT SUBROUTINE 

:GO TO 29$ IF ERROR 


: SETUP gi INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS 


;WAIT FOR COMMAND TO eee 


JSR 


PC, TIMOUT 


:GO TO CETSTS SUBROUT INE 


‘ 
3GO TO TIMOUT SUBROUTINE 


:GO READ STATUS FOR WRITE CHECK DATA OPERATION 
JSR PC GET 


BR 
NOP 


SE eee ee 


3GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 21$ IF NO ERROR 
:RETURN HERE IF ERROR 


es eee eee 


SEQ 0084 


we @ 


7 
| Satna RMO5/3/2 FCTNL TST 3 MACRO V04.00 4-APR=-81 01:15:59 PAGE 13-14 
WRITE, WRITE CHECK ZEROS wW/ WCE ERROR 


013150 104000 EMT ;ERROR # DEF INED BY GET SUBROUTINE 
013152 000137 013446 JMP (29 :G0 TO 29$ IF ERR 

453 015156 218: 

455 CHECK FOR ERRORS DURING WRITE CHECK DATA OPERATION 

456 013156 004737 044056 JSR ——-PC, PRIE G0 CHECK FOR PRIMARY ERRORS 
013162 000405 aR 228 0 TO 22$ IF NO ERROR 
013164 000240 NOP {RETURN HERE. If ERROR 
013166 104000 EMT ERROR # DEFINED BY PRIERR SUBROUTINE 
013170 004736 JSR —- PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
013172 000137 013446 IMP 298 :G0 TO 29% IF ERROR 

437 013176 22$: 

458 013176 032737 040000 001346 BIT #WCE,RMCS2I WAS ‘WCE'' DETECTED?? 

459 013204 001030 BNE 24$ ZYES!! 

461 013206 004737 056572 JSR —- PC, DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
013212 000405 BR 23$ :GO TO 23$ IF NO ERROR 
013214 000240 NOP ;RETURN HERE IF ERROR 
013216 104000 EMT ;ERROR # DEFINED BY DTASTS SUBROUTINE 
613220 004736 JSR —s- PC, @( SP) + :GO BACK FOR MORE ERROR CHECKS 
013222 000137 013446 IMP 298 :G0 TO 29$ IF ERROR 

462 013226 , 238: 

463 013226 013737 001346 001140 MOV —«sRMCS21, $GDDAT EXPECTED STATUS 

464 013234 052737 040000 001140 BIS  #WCE,$GDDAT 

465 013242 013737 001346 001142 MOV —- RMCS21, $SBDDAT ;RECEIVED STATUS 

466 013250 010337 001174 MOV —-R3, STMPO :FAILING BIT POSITION 

467 013254 012737 107440 001176 MOV § #BUF TWO-2, SIMP1 FAILING ADDRESS 

468 013262 104337 EMT = -437. 

469 013264 000470 : BR 29 

470 013266 268: 

471 013266 112737 000022 001524 MOVB  #RMDB,GETINX ; SETUP GET INDEX TABLE 
013274 112737 000200 001525 MOVB  #200,GETINX+1 ;SETUP TERMINATOR BYTE 
013302 004737 043060 JSR —- PC, GET :GO READ RMDB VIA GET SUBROUTINE 
013306 000404 BR 25$ :G0 TO 25$ IF NO ERROR 
013310 000240 | NOP “RETURN HERE IF ERROR 
013312 104000 EMT ZERROR DEFINED BY GET SUBROUTINE 
013314 000137 013446 IMP «298 :G0 TO 298 IF ERROR 

472 013320 258: 

473 013320 013737 001360 001142 MOV —«-RMDBI., SBDDAT ;RECEIVED DATA 

474 013326 013737 107440 001140 MOV BUF TWO-2, $GDDAT ZEXPECTED DATA 

475 013334 040337 001140 BIC —- R3, SGDDAT 

476 013340 012737 107440 001134 MOV ——« ABUF TwO-2,, SGDADR EXPECTED ADDRESS 

477 013346 013737 001342 001136 MOV —s RMBAI., SBDADR RECEIVED ADDRESS 

478 013354 162737 0000C2 001136 SUB «#2, SBDADR ADJUST BUS ADDRESS 

479 013362 023737 001134 001136 (MP —-« $GDADR., SBDADR SADDRESSES OK?? 

480 013370 001402 BEQ ss 26$ ZYES!! 

481 013372 104340 EMT 340 

482 013374 000424 BR 29$ 

483 013376 023737 001140 001142 26$: CMP — $GDDAT. $BDDAT DATA 0K?? 

484 013404 001402 7 BEQ ©=—-_—«o27$ ZYES!! 

485 013406 104341 EMT —s-341 

486 013410 600416 BR 29$ 

487 013412 278: 

689 013412 004737 044710 JSR —- PC, SECERR GQ CHECK FOR SECONDARY ERRORS 
013416 000405 BR 288 :G0 TO 28% IF NO ERROR 
013420 000240 NOP ‘RETURN HERE IF ERROR 


re ae ee et ee ee 


SEQ 0085 


. -f 
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14 WRITE, WRITE CHECK ZEROS W/ WCE ERROR SEQ 0086 
013422 104000 EMT : ERROR ; DEFINED BY SECERR SUBROUTINE 
013424 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
013426 000137 013446 JMP 29% :GO TO 29$ IF ERROR 

490 013432 283: 
491 013432 040337 107440 BIC R3,BUF TWO-2 sRESTORE DATA par rem 
492 013436 006303 ASL R3 :SHIFT TO NEXT BIT 
493 013440 001402 BEQ 29$ “EXIT IF DONE 
494 013442 000137 013020 JMP 17$ “REPEAT TEST FOR NEXT DATA BIT 
pee 013446 293: 
497 SRI IICIIO IOI IUIOIIOIINIIIOIOIIIUIIIOIOIIIOIOIDIOIIIOIOIUIOIUIDIOIIIOIIIOI IIS ISIIOI IIS ISI 
:*TEST 5 WRITE, READ ONES 
CLARA ARARAARAE ARKH AAERERAERKEARAKAA EHS LAeaRBSaASASAAARASASARASR SSSR SASS @ 3 
013446 TSTS: 
013446 000004 SCOPE :SCOPE CALL 
013450 000240 NOP ;START OF TEST 
013452 012706 001100 MOV ASTACK,SP s INITIALIZE oo POINTER 
013456 013700 001276 MOV $BASE ,RO “RO = UNIBUS A DDRESS 
013462 013701 001466 MOV TSTQUE, R1 :(R1) DEVICE BEING TESTED 
see C13466 012737 OC0005 001226 MOV #5, $TESIN SET TEST NUMBER IN APT MAIL BOX 
499 CL AAA ARERR RARER AERA AERA 
eee :LOOP #1 FORMAT ,WRITE,READ 
258 013474 ? 1$: 
504 sPREPARE THE DEVICE FOR TEST 
505 013474 004737 037316 JSR PC, TSTPRP s;PREPARE DEVICE FOR TEST 
013500 154130 . WORD 154130 : TASK DESCRIPTOR AS FOLLOWS: 


;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
>VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF ‘'SKI"’ OR ‘'PIP’* IS SET 
2g AY RECAL IBRAT ION 


013502 000404 BR 2$ TO 2$ IF NO ERROR 
013504 000240 NOP “RETURN HERE IF ERROR 
013506 104000 EMT , ;ERROR # DEFINED BY TSTPRP SUBROUTINE 
sos 013510 000137 014454 JMP 25$ -GO TO 25$ IF ERROR 
507 :LOAD PARAMETERS AND GENERATE DATA BUFFER 
508 013514 2$: 
509 013514 012737 000000 001446 MOV #0,RMDCO -CYLINDER = 0 
510 013522 012737 000000 001420 MOV #0,RMDAO -TRACK = 0, SECTOR = 0 
511 013530 012737 106436 001416 MOV #BUF ONE , RMBAO *BUS ADDRESS 
512 013536 012737 177376 001414 MOV #-258.,RMWCO :2 + 256. WORDS (2°S COMP) 
513 013544 012737 010000 001444 MOV #FMT16,RMOFO :16 BIT FORMAT 
a 013552 012737 000063 001412 MOV #WH!GO,RMCS10 “WRITE HEADER AND DATA COMMAND 
516 x : VERIFY THAT SECTOR IS NOT BAD 
013560 004737 040242 JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 
013564 000405 BR 3$ :GO TO 3$ IF NO ERROR 
013566 104401 070426 TYPE ,SCTMSG : TYPE BAD SECTOR MESSAGE 
013572 104000 EMT : ERROR # DEFINED BY BADSCT SUBROUTINE 


013574 000137 014454 JMP 25$ 0 TO 25$ y ERROR 
517 013600 3$: 


em ere |e ee = = 
- _ ee a ee ree ee Le one ee ee ee me eee ————_—-—<. 


CZ7RMOBO RMOS/3/2 FCTINL TST 3 
D ONES 


T5 WRITE, READ 


518 013600 
519 013606 
520 015614 
521 


Ww 
Nm 
oo 
Coo 
—" 
W 
rs 
™ 


543 013724 


546 013724 


013754 


Ww abvabvalvaleal tables shed 
APA APA AAAI 
OONAOUR WHO OO 


3 I OE 


ced ed ced ed end eed eed ened 
ge Rh trl 
™m 
Nm 


000137 


004737 


004737 


004737 


012737 
000410 


: ae 
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072016 001774 MOV #ONES , STMPO ; STARTING ADDRESS OF PATTERN 
000001 001176 MOV #1,STMP1 SRANGE OF PATTERN 
174 JSR PC, GENBUF :GO GENERATE BUFFER FOR FORMAT 


LOAD ate * Ta FOR pi af arts 


001553 PUT INX = BYTE ENTRY POSITION 
00034 MOVB #RMDC, (R2) + 
000006 MOVB ARMDA, (R2) + 
000004 MOVB #RMBA , (R2) + / 
02 MOVB #RMWC , (R2) + 
000032 MOVB ARMOF , (R2) + 
000000 MOVB ARMCS1,(R2)+ 
000200 ea MOVB #200, (R2) : TERMINATE TABLE 
>FORMAT THE DRIVE 
043330 JSR PC ,PuT : G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 5$ ;GO TO 5$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT * ERROR # DEFINED BY PUT SUBROUTINE 
014454 - JMP 25$ :GO TO 25% IF ERROR 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
042774 JSR PC,GETSTS 3GO TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND 9 COMPLETE 
043672 JSR : PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
. :GO READ STATUS FOR FORMAT OPERATION 
043060 JSR PC,GET :G0 READ REGISTER(S) WITH GET SUBRCUTINE 
BR 6$ -GO TO 6$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY GET SUBROUTINE 
014454 ‘a JMP 25$ :GO TO 25$ IF ERROR 
VERIFY NO ERRORS DURING FORMAT 
056572 JSR PC,DTASTS - GO en RESULTS OF DATA TRANSFER 
BR 7$ 7$ IF NO ERROR 
NOP ‘Oe TURN HERE IF ERROR 
EMT -ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
014454 a JMP 25$ :GO TO 25$ IF ERROR 
sMOVE LOOP ADDRESSES TO NEXT OPERATION 
013754 001124 MOV #8$ ,$LPERR 
BR 9$ sSKIP TO WRITE OPERATION 
5 TERRE EEE EERE REE E RE ERRERERE REAR RER ERE RRS EEE 
:LOOP #2 WRITE ,READ 
8$: 


sPREPARE DEVICE FOR TEST 


SEQ 0087 


_— ——- 
ne eee ste estes ote — <<. <= 


CZ 
TS 


RMOBO RMOS/3/2 FCTNL TST 3 
WRITE, READ ONES 


560 013754 
01 


589 





3760 


013762 


013774 


64 013774 


013774 


014052 
014056 


Oooo°ooO 
od aud ond oad end ed 
or er er er 
eb ek aed ad od ed 

MOMWNM 


004737 
154130 


000137 


004737 


004737 


037316 


014454 


000002 
000000 
0002C0 
043330 
014454 


042774 
043672 


043060 
014454 


044056 


014454 


x ¢£ 
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JSR 
. WORD 


BR 

NOP 

EMT 

JMP 
9$: 


9$ 


25$ 


sWRITE DATA TO THE DRIVE 
10$: 


JSR 


EMT 
JMP 
11$: 


#BUF ONE +4 , RMBAO 
#-256. ,RMWCO 
#WD!GO,RMCS10 


#200, (R2)+ 


PC ,PUT 
11$ 


25$ 


sPREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 

: VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NCT VALID 
;VERIFY PACK ACKNOWLEDGE 

:RECALIBRATE IF ‘'SKI'' OR ‘PIP’' IS SET 
; VERIFY RECALIBRATION 

:GO TO 9$ IF NO ERROR 

:RETURN HERE IF ERROR 

;ERROR # DEFINED ae TSTPRP SUBROUTINE 


:GO 10 25$ IF ERROR 


: CHANGE MEMORY ADDRESS 


; CHANGE WORD COUNT 


:WRITE DATA. COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


; TERMINATE TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
;GO TO 11$ IF NO ERROR 
;RETURN HERE IF ERROR 


sERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 25$ IF ERROR 


;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 


WAIT ois TO COMPLETE 


:GO READ STATUS FOR WRITE COMMAND 
JSR PC,GET 


BR 


NOP 

EMT 

JMP 
12$: 


PC, TIMOUT 


25$ 


:GO TO GETSTS SUBROUTINE 
:GO TO TIMOUT SUBROUTINE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
;GO TO 12$ IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # ‘gia BY GET SUBROUTINE 

:GO TO 25% IF ERROR 


; CHECK FOR ERRORS eS. WRITE OPERATION 
SR PC,PRIERR 7G 


PC,a@(SP)+ 


25$ 


O CHECK FOR PRIMARY ERRORS 

:GO TO 13$ IF NO ERROR 

;RETURN HERE IF ERROR 

: ERROR E ed BY PRIERR SUBROUTINE 
; GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 


SEQ 0088 


i 
} 
i 


eee ee 8 


——— ee ne + wee 2 ee 


alas RMO5/3/2 FCINL TST 3 


WRITE, READ ONES 


590 014142 
591 014142 


597 014202 
598 014210 
599 


600 . 
601 


602 
7 014212 


014220 


004737 
05 


912737 
000410 


004737 


154130 


004737 
000404 
000240 


056572 


014454 
044710 


014454 


0714212 


037316 


014454 


107446 
000071 


000000 
000200 
043330 


eee + 


a ——-—— ~ -——— —-— 


ee 
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001124 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 14$ IF NO ERROR 

:RETURN HERE IF ERROR 

ERROR a Fon fon BY DTASTS SUBROUTINE 


;GO BACK FOR MORE ERROR CHECKS 
:G0 TO 555 IF ERROR 


GO CHECK FOR SECONDARY ERRORS 
ERROR 


sRE IF ERROR 

:ERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 25$ IF ERROR 


:SKIP TO NEXT OPERATION 


SOI OISIIIIIOIIIOIOICIOISIOIOIUIOIEIOIOIOIIOIOISIOI OIRO SOSA ISAISSSASIASASIAIAAA A. 


13$: 
JSR PC,DTASTS 
BR 14$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 25$ 
14$: 
JSR PC,SECERR 
BR 153 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 25$ 
15$: 
; CHANGE LOOP mae > Se 
MOV #16$,S$LPERR 
e BR 17$ 
“LOOP #3 READ 
16$: 
sPREPARE DEVICE FOR TEST 
JSR PC, TSTPRP 
-WORD 154130 
BR 17$ 
NOP 
EMT 
25$ 
17$: 
Ya DATA FROM DEVICE 
MOV ABUF TWO+4 , RMBAO 
MOV #RD!GO,RMCS10 
MOV HPUTINX,R2 
MOVB HARMDA, (R2) + 
MOVB HRMOF , (R2)+ 
MOVB ARMDC , (R2)+ 
MOVB (R2)+ 
MOVB ARMWC , (R2) + 
MOVB #RMCS1, (R2)+ 
MOVB #200, (R2) 
“JSR PC,PUT 
BR 19$ 
NOP 


‘ 


sPREPARE DEVICE FOR TEST : 

; TASK DESCRIPTOR AS FOLLOWS: 

; SELECT DEVICE & VERIFY DEVICE AVAILABLE 
LEAR CONTROLLER & SELECT DEVICE 

: VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

: VERIFY PACK ACKNOWLEDGE 

:RECALIBRATE IF ‘'SKI'’ OR "PIP" IS SFT 

; VERIFY RECALIBRATION 

:GO TO 17$ IF NO ERROR 

:RETURN HERE IF ERROR 

;ERROR # DEFINED BY TSTPRP SUBROUTINE 

:GO TO 25$ IF ERROR 


;CHANGE MEMORY ADDRESS 
;READ DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 19$ IF NO ERROR 
:RETURN HERE IF ERROR 


SEU 0089 


639 
640 


641 
642 
643 
644 
645 





eee = 


014316 
014320 
014324 


014324 


0 6 
014432 
014432 
C14436 


014454 
014454 


014454 
014454 
014456 


—— -_- 


104000 
000137 


004737 


004737 


000004 
000240 


ee ee ee ee ee es ee —_—_ -—— ~_~-— ——— er ee -- 


cZRMOBO RMO5/3/2 FCINL TST 3 
TS WRITE, READ ONES 


014454 


042774 
043672 


043060 
014454 


044056 


014454 
056572 


014454 


044710 


014454 
042432 


014454 


_—-— - 


M 7 
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EMT 
JMP 
19$: 


25$ 


;ERROR # DEFINED BY PUT SUBROUTINE 
;GO TO 25$ IF ERROR 


; SETUP ~. INDEX TABLE TO READ ALL REGISTERS 


;WAIT ae TO COMPLETE 


PC,GETSTS 


PC, TIMOUT 


,GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR READ OPERATION 
JSR PC,GET 


;GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 20$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY GET SUBROUTINE 

;GO TO 25$ IF ERROR 


OR tg al ERRORS 


2 OR 
sERROR # DEFINED BY PRIERR SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 
:GO TO 25$ IF ERROR 


:GO Ms A RESULTS OF DATA TRANSFER 
O 22$ IF ~ ERROR 


:GO T 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 25$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 23$ IF NO ERROR 
;RETURN HERE IF ERROR 


; ERROR # DEFINED BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:GO TO 25$ IF ERROR 


;GO COMPARE WRITE, READ DATA BUFFERS 


s STARTING ADDRESS OF WRITE BUFFER 
dey ADDRESS OF READ BUFFER 
360 TO 2ig IF NO ERROR 
*RETURN HERE IF ERROR 
:ERROR # DEFINED BY CMPBUF SUBROUTINE 
:GO TO 25$ IF ERROR 


FLEE REAR EEEER EERE EERE ERE REE ERE AREER EKER EERE 


WRITE, WRITE CHECK ONES 


FREAK EEK EKER EEE EERE KEKE EERE AER REE RR 


BR 
NOP 
EMT 
JMP 25$ 
20$: ; 
:CHECK FOR ERRORS DURING READ OPERATION 
JSR PC,PRIERR . 
BR 21$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 25$ 
21$: 
JSR PC .DTASTS 
BR 22$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 25$ 
223: 
JSR PC,.SECERR 
BR 23$ 
NOP 
EMT 
JSR PC, a(SP)+ 
JMP 25$ 
23$: 
JSR PC, CMPBUF 
-WORD BUFONE+4 
-WORD BUFTWO+4 
BR 24$ 
NOP | 
EMT 
JMP 25$ 
2453: 
25$: 
:*TEST 6 
TST6: 
SCOPE 
NOP 


sSCOPE CALL 
;START OF TEST 


SEQ 0090 


Sa ett ee 


~~ =e 


650 014502 
651 


652 
653 014502 
014506 


654 
655 
656 or eras 


013701 
012737 


004737 
154130 


000404 


000240 
104000 
000137 


012737 


CZRMOBO RMO5/3/2 FCTNL TST 3 
T6 WRITE, WRITE CHECK ONES 


001100 


6 
006 


037316 


015432 


000000 


040242 
070426 
015432 
072016 


000001 
042174 


001553 
000034 
000006 
000004 
000002 
000032 


000000 
000200 


MACRO Vv04.00 


001226 


001446 


(001444. 
001412 | 


—_—- LL ta 
-_ 


N 7 
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ASTACK,SP s INITIALIZE STACK POINTER 

SBASE ,RO ;RO = UNIBUS ADDRESS 

TSTQUE ,R1 =(R1) = DEVICE BEING TESTED 
#6,$TESIN 7;SET TEST NUMBER IN APT MAIL BOX 


5 EERE KAKA RARER ARERR 


: LOOP a 


1$: 
sPREPARE THE DEVICE oie geet 
JSR PC,TSTPR 


1 


FORMAT ,WRITE,WRITE CHECK DATA 


S s;PREPARE DEVICE FOR TEST 
» WORD 154130 : TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
“VERIFY PACK ACKNOWLEDGE 
“RECA LIBRATE IF ‘’SKI‘’ OR ‘PIP’’ IS SET 
: VERIFY RECALIBRATION 
BR 2$ =GO TO 2$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT :ERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 24$ :GO TO 24$ IF ERROR 
Fad PARAMETERS AND GENERATE DATA BUFFER 
MOV #0,RMDCO -CYLINDER = 0 
MOV #0 ,.RMDAO -TRACK = 0, SECTOR = O 
MOV ABUF ONE , RMBAO =BUS ADDRESS 
MOV #-258.,RMWCO 2 + 256. WORDS (2°S COMP ) 
MOV #FMT16,RMOFO -16 BIT FORMAT 
MOV AWH!GO,RMCS10 “WRITE HEADER AND DATA COMMAND 
>; VERIFY THAT SECTOR IS NOT BAD 7 
JSR PC ,BADSCT cent BAD SECTOR MODULE 
TO 3$ IF NO ERROR 
TYPE ~5CTMSG < TYPE BAD SECTOR MESSAGE 
EMT * ERROR # DEFINED BY BADSCT SUBROUTINE 
35 JMP 24$ GO TO 24$ IF ERROR 
MOV #HONES , STMPO ; STARTING ADDRESS ‘OF PATTERN 
MOV #1,3STMP1 * RANGE OF PATTERN 
JSR PC , GENBUF ;GO GENERATE BUFFER FOR FORMAT 
:LOAD PUT REGISTER INDEX TABLE FOR leahcet OPERATIION 
MOV HPUTINX,R2 R2 = BYTE ENTRY POSITION 
MOVB ARMDC, (R2) + 
MOVB H#RMDA, (R2) + 
MOVB ,(R2)+ 
MOVB HRMWC , (R2) + 
MOVB #RMOF , (R2) + 
MOVB  ARMCS1,(R2)+ | 
“~ MOVB #200, (R2) : TERMINATE TABLE 


ee ees oe 


SEQ 0091 


—— oe ee — . 7 


0 ee 


CZ7PMOBO RMOS/3/2 FCTINL TST 3 


Té 


WRITE, 


014710 


690 014714 


y 
695 014752 
696 


697 
698 014752 
699 014760 


707 
708 014762 
014766 


014770 





004737 
000404 
006240 
104000 
000137 


004737 


004737 
1541350 


WRITE CHECK ONES 


043350 


015432 


042774 


043672 


043060 


015432 


056572 


015432 


014762 


037516 


015432 


5$: 


JSR PC ,PuT 
BR 5$ 
NOP 

EMT 

JMP 24$ 


8 
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7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
;GO TO 5$ IF NO ERROR 
;RETURN HERE IF ERROR 
60 10 # DEFINED BY PUT SUBROUTINE 
O TO 24$ IF ERROR 


; SETUP a INDEX TABLE i READ ALL REGISTERS 


PC,GETSTS 


:WAIT roi TO COMPLETE 


;GO READ STATUS FOR FORMAT CPERAT ION 
JSR PC,GET 


6$: 
: VERIFY 


 T$: 


PC, TIMOUT 


NOP 
EMT 
JMP 24$ 


NO ERRORS DURING FORMAT 
JSR PC,DTASTS 

BR 

NOP 

EMT 


JSR PC,a(SP)+ 
JMP 245 


:GO TO GETSTS SUBROUTINE 
:GO TO TIMOUT SUBROUTINE 


;GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 6$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

760 TO 24$ IF ERROR 


260 VERIFY RESULTS OF DATA TRANSFER 
TO 7$ IF NO ERROR 


“RETURN HERE IF ERROR 

sERROR # hg BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 54S iF ERROR 


;MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #8$, SLPERR 


:SKIP TO WRITE OPERATION 


SRR RREREERERRE EERE RARE RARER ERE RAE EE 


“LOOP #2 


si 


- PREPARE ao FOR perth OPERATION 


9$: 


-WORD 154130 


BR 9$ 
NOP 

EMT 

JMP 24$ 


;WRITE DATA TO THE DRIVE 


WRITE WRITE CHECK DATA 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 

sSELECT DEVICE & VERIFY DEVICE AVAILABiE 
:CLEAR CONTROLLER & SELECT DEVICE 

; R CLE RATION 


:P KNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE | 
;RECALIBRATE IF ‘‘SKI'’ OR "PIP'’ IS SET 
; VERIFY RECALIBRATION 

:GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 

SERROR # DEFINED BY TSTPRP SUBROUTINE 
:G0 TO 248 IF ERROR 


SEQ 0092 


A 


cas asia aa ia ia ae 


T6 


N 
RS 
Flat 





— CZRMOBO RMOS/3/2 FCTNL TST 3 
ONES 


C 
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WRITE, WRITE CHECK 

712 015002 10$: 

713 015002 012737 106442 001416 MOV #BUF ONE +4, RMBAO s CHANGE MEMORY ADDRESS 

714 015010 012737 177400 001414 MOV #-256.,RMWCO  ; CHANGE WORD COUNT 

715 015016 012737 000061 001412 MOV #WD !GO,RMCS10 :WRITE DATA COMMAND 

716 0150246 012702 001553 MOV #PUTINK,R2 “LOAD PUT REGISTER INDEX TABLE 

717 015030 112722 000006 MOVB  #RMDA, (R2)+ 

718 015034 112722 000034 MOVB  #RMDC,(R2)+ 

719 015040 112722 000032 MOVB  #RMOF . (R2)+ 

720 015044 112722 000004 MOVB  #RMBA,(R2)+ 

721 015050 112722 000002 MOVB  #RMWC.(R2)+ 

722 015054 112722 000000 MOVB  #RMCS1,(R2)+ 

723 015 112722 000200 MOVB #200, (R2)+4 : TERMINATE TABLE 

725 015064 004737 043330 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

15070 0004 BR 11$ -GO TO 11$ IF NO ERROR 

015072 000240 NOP “RETURN HERE IF ERROR 
015074 104 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
015676 000137 015432 JMP 24$ -GO TO 24$ IF ERROR 

726 015102 118: 

728 3 :SETUP GET INDEX TABLE TO READ ALL REGISTERS 

be 015102 004737 042774 JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 

, :WAIT FOR COMMAND TO COMPLETE 

‘i 015106 004737 043672 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

732 -GO READ STATUS FOR WRITE COMMAND 

733 015112 004737 043060 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
015116 000404 BR -GO TO 12$ IF NO ERROR 
015120 000240 NOP “RETURN HERE IF ERROR 
015122 104000 EMT “ERROR # DEFINED BY GET SUBROUTINE 
015124 000137 015432 JMP 24$ *GO TO 24$ IF ERROR 

tee 015130 12$: 

736 = CHECK FOR ERRORS DURING WRITE OPERATION. 

737 015130 004737 044056 JSR PC PRIERR :GO CHECK FOR PRIMARY ERRORS 
015124 00040 *GO TO iss IF NO ERROR 
015136 000240 NOP “RETURN HERE IF ERROR 
015140 104 EMT “ERROR # DEFINED BY PRIERR SUBROUTINE 
015142 004736 JSR PC a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
015144 000137 015432 MP 24$ *GO TO 24$ IF ERROR 

738 015150 z 13$: 

739 015150 004737 056572 JSR PC DTASTS iGO VERIFY RESULTS OF DATA TRANSFER 
015154 000405 BR 14$ :60 TO 14$ IF NO-.ERROR 
015156 000240 NOP -RETURN HERE IF ERROR 
015160 104 EMT “ERROR # DEFINED BY DTASTS SUBROUTINE 
015162 0047 JSR PC, a(SP)+ -GO BACK FOR MORE ERROR CHECKS 
015164 000137 015432 MP 24$ :G0 TO 248 IF E 

740 015170 14$: 

741 015170 004737 044710 JSR PC. SECERR 60 CHE CK FOR SECONDARY ERRORS 
015174 000405 BR 15$ GO 0 15$ IF NO ERROR 
015176 000240 NOP RETURN HERE IF ERROR 
015200 104006 EMT “ERROR # DEFINED BY SECERR SUBROUTINE 
015202 004736 JSR PC. a(SP)+ -GO BACK FOR MORE ERROR CHECKS - 
015206 000137 015432 se JMP 24$ “GO TO 24$ IF ERROR 


I nee ee eee ~ oe oe 


SEQ 0095 


 CZRMOBO RMO5/3/2 FCTNL TST 3 


T6 WRITE, WRITE CHECK ONES 


a i | 
WIV gs 
N-Ow 


le 015220 


753 
754 015220 
015224 


015226 

015254 
755 015240 
756 


757 
758 015240 


762 015256 
763 015262 
764 015266 
765 015272 
766 015276 
767 015302 
768 
769 015306 
015312 
015314 
015316 
C15320 
770 015324 
771 
772 
, 015324 


774 
; 015330 


776 
777 015334 
340 


015346 


778 015352 





D 
MACRO V04.00 4-APR=-8! 07:15:59 PAGE 13-23 


012737 ©15220 001124 
000410 


004737 
154130 


037316 


015432 


000200 © 
043330 


015432 


042774 


043672 


043060 


015432 


001412 


; CHANGE Oa ADDRESSES 


BR 


#16$,SLPERR 
17$ 


:SKIP TO NEXT OPERATION 


{SEERA REAR ARAAAEAARAAAATAAAAAAKARAAEAAAARARARAEEEEEERKERRAEEHRAEKEREREEE 


“LOOP #3 
16$: 


;PREPARE DEVICE FOR WRITE CHECK 
JSR PC, TSTPRP , 


17$: 


. WORD 


WRITE CHECK DATA 


54130 


17$ 


24$ 


AR C 
sPACK AC 


DATA OPERATION 
PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
KNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF “SKI” OR “PIP” IS SET 


ROR 
:ERROR # DEFINED BY TSTPRP SUBROUTINE 


;GO TO 24$ IF ERROR 


— CHECK DATA DATA FROM DEVICE 


19$: 


#WCD!GO,RMCS10 
X,R2 


#RMCS1, (R2)+ 
#200, (R2) 


PC ,PUT 
19$ 


24$ 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
9$ IF NO ERROR 


:60 TO 1 
:RETURN HERE IF ERROF 


ZWRITE CHECK DATA DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


TERROR # DEFINED BY PUT SUBROUTINE 


:GO TO 24$ IF ERROR 


;SETUP GET INDEX TABLE ane READ ALL REGISTERS 
JSR TS ;GO TO GETSTS SUBROUTINE 


;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 


20$: 


PC,GETS 


2V 


24$ 


:GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR WRITE CHECK DATA OPERATION 
SR PC,GET 


;GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 20 NO ERROR 


$ IF 


:RETURN HERE IF ERROR 
;ERROR # DEFINED BY GET SUBROUTINE 
;GO TO 24$ IF ERROR 


rn te we em ee 


SEQ 0094 


CZRMOBO RMOS/3/2 F 
WRITE, WRI 


T6 


sae 


~ he 
aR 


elelelelele) =e) 
ad ed ad Bd ed 


© 
— 
Ww 
a te 
oO 
Nm 


015404 


86 015432 


798 


015432 


015432 


015452 


015460 


015460 
015464 


799 015500 


“oO 


NL 
C 


000004 


012737 


004737 
154150 


000404 
000240 
104000 
000137 


TST 3 
HE CK 


044056 


015432 
056572 


015432 
044710 


015432 


001100 


6 
000007 


037316 


016630 


001226 


E 
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SEQ 0095 


; CHECK + * ete hat WRITE CHECK DATA OPERATION 


21$: 


223: 


ate 


PC ,a(SP)+ 
24$ 


PC ,DTASTS 


22$ 


PC ,a(SP)+ 
24$ 


PC,SECERR 
23$ 


PC,@(SP)+ 
243 


‘ae ¢ HECK FOR PRIMARY ERRORS 
0 To 21$ IF NU ERROR 
‘RETURN HERE IF ERROR 
;ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 24$ IF ERROR 


;GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 22$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # 4 le BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

;GO TO 24$ IF ERROR 


+ GO CHECK FOR oe al ERRORS 
IF ERROR 
Bw # DEFINED BY SECERR SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 
:GO TO 24% IF ERROR 


—ewt eee RP RERRRRERRARRRARARA LARA SRRRR SASSER RAS RRA RA RSE RRR ASR RASS SD | 


WRITE, WRITE CHECK ONES W/ WCE ERROR 


OTT TET T LILI LILLE LEI ITLELL LAL LILLE LIL LLL 


SRTEST 7 
1817: 


ASTACK, SP 
0 


SBASE ,R 
TSTQUE ,R1 
#7, STESTN 


;SCOPE CALL 

;START OF TEST 

s INITIALIZE STACK POINTER 

:RO = UNIBUS ADDRESS 

=(R1) = DEVICE BEING TESTED 
::SET TEST NUMBER IN APT MAIL BOX 


SEERA REEREERERREERAEEERERAEAAREREREREEEEARAEAEAAEAAEREARAEAEEAEAERREAEERESE 


FORMAT, ,WRITE,WRITE CHECK DATA 


OOP #1 
1$: 


icine Wig wich Ae RE ag OPERATION 


“ORD 


2$: 


4130 


2$ 


29S 


;PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 

: VERIFY ‘CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE = 
RECALIBRATE IF SSKI" OR “PIP IS SET 


; 2 

:RETURN HERE IF ERROR 

60 TO # DEFINED BY TSTPRP SUBROUTINE 
GO TO 29% IF ERROR 


re - —- 
ee es ce ep ee we ee re ees + ee —" a 





eT estes = 


Om em ee ee eee 


RMOBO RMOS/3/2 FCTINL TST 3 MACRO V04.00 4-APR=-81 01:15:59 PAGE 13-25 


C2 
T7 WRITE, WRITE CHECK ONES W/ WCE ERROR SEQ 0096 
800 
801 LOAD PARAMETERS AND GENERATE DATA BUFFER 
802 015500 012737 Q00000 001446 MOV #0,RMDCO :CYLINDER = 0 
803 015506 012737 000000 001420 MOV #0,RMDAO ; TRACK = 0, SECTOR = 0 
804 015514 012737 106436 901416 MOV #RUF ONE , RMBAO ;BUS ADDRESS 
805 015522 012737 177376 001414 MOV #-258. SRMWCO :;WORD COUNT = 1 SECTOR 
806 015530 012737 010000 001444 MOV #FMT16, RMOF O 716 BIT FORMAT 
pol 015536 012737 000063 001412 MOV #WH!GO.RMCS10 :WRITE HEADER AND DATA COMMAND 
809 :VERIFY THAT SECTOR IS NOT BAD 
015544 004737 040242 JSR PC ,BADSCT ons BAD te MODULE 
015550 000405 BR 3$ O 3$ IF NO ERROR 
015552 104401 070426 TYPE »SCTMSG IPE "BAD SECTOR ME SSAGE 
015556 104000 EMT “ERROR # DEFINED BY BADSCT SUBROUTINE 
ase Ol acer 000137 016630 - JMP 29S G0 TO 29% IF ERROR 
811 015564 012737 072016 001174 MOV #ONES , STMPO ; STARTING eats by OF PATTERN 
812 015572 012737 000001 001176 MOV #1,$TMP1 + RANGE OF PATTERN 
as 015600 004737 042174 JSR PC, GENBUF :GO GENERATE BUFFER FOR FORMAT 
815 s;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
816 015604 012702 001553 MOV #PUTINX,R2 zR2 = BYTE ENTRY POSITION 
817 015610 112722 000034 MOVB  #RMDC,(R2)+ . 
818 015614 112722 000006 MOVB #RMDA, (R2) + 
819 015620 112722 MOVB ,(R2)+ 
820 015624 112722 000002 MOVB ARMWC , (R2) + 
821 015630 112722 000032 MOVB #RMOF , (R2) + 
822 015634 112722 000000 MOVB ARMCS1, (R2)+ 
823 015640 112712 000200 | MOVB #200, (R2) > TERMINATE TABLE 
ose 015644 4$: 
826 :FORMAT THE DRIVE 
827 015644 004737 043330 JSR PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
015650 000404 BR 5$ :GO TO 5$ IF NO ERROR 
015652 000240 NOP RETURN HERE IF ERROR 
015654 104000 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
015656 000137 016630 JMP 29$ :GO TO 29$ IF ERROR 
Hs 015662 S$: 
830 -SETUP GET INDEX TABLE TO READ ALL REGISTERS 
831 015662 004737 042774 JSR PC,GETSTS. :GO TO GETSTS SUBROUTINE 
832 WAIT FOR COMMAND y COMPLETE 
83% 015666 004737 043672 JSR PC,TIMOUT :GO TO TIMOUT SUBROUTINE 
834 :GO READ STATUS FOR FORMAT OPERATION 
835 015672 004737 043060 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
015676 000404 BR 6$ =GO TO 6$ IF NO ERROR 
015700 000240 NOP :RETURN HERE IF ERROR 
015702 104000 EMT :ERROR # DEFINED BY GET SUBROUTINE 
015704 000137 016630 JMP 29S :GO TO 29% IF ERROR 
B39 015710 6$: 
838 : VERIFY NO ERRORS DURING FORMAT 
839 015710 004737 056572 JSR PC,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
LEA 000405 BR 7$ :GO TO 7$ IF NO ERROR 


000240 NOP :RETURN HERE IF ERROR 


| ‘nar RMO5/3/2 FCTNL TST 3 


WRITE, 
015720 


015730 
015736 


PRERERERR 
CDNAOUSWH Oo 


849 015740 


ee EE ete NEE nena 


852 015740 
015744 


015746 


ee? 015760 


5 
856 015760 


870 016060 
871 
872 


873 
874 


875 


016060 


016064 





104000 
004736 
000137 


012737 
000410 


004737 
154130 


000404 
000240 
104 

000137 


012737 


004737 


004737 


016630 


G 
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015740 001124 


037316 


016630 


00000 
000200 
043350 


016650 


042774 


043672 


WRITE CHECK ONES W/ WCE ERROR 


EMT 

JSR 

JMP 
7$: 


PC,a(SP)+ 
298 


;ERROR # ohn cake BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
;GO TO 29$ IF ERROR 


sMOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #8$,$LPERR 


BR 


;SKIP TO WRITE OPERATION 


sa -ReaRSEREeSRAASR ASR RR RR RRRRRRRRRRRSRSRRRR RARER RAR RRRR RR SRR RRR R ASE SS SE 


sPREPARE DEVICE FOR TEST 
; TASK DESCRIPTOR AS FOLLOWS 


>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘‘SKI’’ OR ‘PIP’’ IS SET 
; VERIFY RECALIBRATION 

:GO TO 9$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY TSTPRP SUBROUTINE 
;GO TO 29$ IF ERROR 


: CHANGE WORD COUNT 
; CHANGE MEMORY ADDRESS 
:WRITE DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


; TERMINATE TABLE 


;GO WRITE gg gig WITH PUT SUBROUTINE 
;GQ TO 11$ IF NO ERROR 
[RETURN HERE IF ERROR 


:ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 29$ IF ERROR 


:LOOP #2 WRITE,WRITE CHECK DATA 
8$: 
;PREPARE DEVICE FOR gy hil OPERATION 
JSR PC,TSTPR 
. WORD 154130 
BR 9$ 
NOP 
EMT 
JMP 29S 
9$: 
i. DATA TO THE DRIVE 
MOV yt > Tie gg Se 
MOV +4 ,RMBAO 
MOV WuD'GO_RMCSIO 
MOV #PUTINX,R2 
MOVB ARMDA, (R2)+ 
MOVB HRMADC, (R2) + 
MOVB ARMOF , (R2) + 
MOVB #RMBA, (RZ) + 
MOVB ARMWC , (RZ) + 
MOVB #RMCS1, (R2)+ 
MOVE #200, (R2)+ 
JSR PC ,PuT 
BR 11$ 
NOP 
EMT 
JMP 29$ 
11$: 


; SETUP ei INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS 


;WAIT Be lea ie COMPLE TE 


PC,TIMOUT 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 


LO OT TN EL EE I TT A SE - <<. oe ae oe oe = Bee eee 


SEQ 0097 


Se 


CZRMOBO RMO5S/3/2 FCTNL TST 3 
ARITE CHECK ONES W/ WCE ERR 


9 WRITE, 


884 
885 016146 


889 016166 


3 
94 016174 
896 016174 


AY 


004737 
000405 
000240 
104000 


004736 
000137 


012737 


012703 
040337 


004737 
154130 


043060 


016630 


044056 


016630 
056572 


016630 
044710 


016630 


016174 


000001 
107440 


037316 


016630 


H 
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001124 


:GO READ STATUS FOR WRITE COMMAND 
JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 


BR 12$ “GO TO 12$ IF NO ERROR 

NOP “RETURN HERE IF ERROR 

EMT “ERROR # DEFINED BY GET SUBROUTINE 
JMP 29$ “GO TO 29% IF ERROR 


12$: 
: CHECK FOR ERRORS yee WRITE OPERATION 
JSR PC,PRIERR 


:GO CHECK FOR PRIMARY ERRORS 
BR | :GO TO 13$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR a DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
i JMP 29$ :GO TO 29$ IF ERROR 
JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 14$ :GO TO 14$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ =GO BACK FOR MORE ERROR CHECKS 
si JMP 29$ =GO TO 59s IF ERROR 
JSR PC,SECERR :GO CHECK FOR SECONDARY ERRCAS 
BR 15$ :GO TO 15$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT :ERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
a JMP 29$ :GO TO 29$ IF ERROR 


> CHANGE LOOP ADDRESSES 
MOV #16$,$LPERR 


RAseeeeeeaSeRSAeSaAAAAAARAASAARASAA SAS SSAA R RRS SR SARRARS RRS SSAA AAAS SSS SSS ® | 


4 


“1 OOP #3 WRITE CHECK DATA 
16$: 
MOV #1,R3 7R3+WCE BIT POSITION 
17$: BIC R3,BUF TWO-2 ; CHANGE LAST WORD OF BUFFER 


;PREPARE DEVICE FOR WRITE CHECK DATA OPERATION 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
WORD 154130 TASK DESCRIPTOR AS FOLLOWS: 

:SELECT DEVICE & VERIFY DEVICE AVAILABLE 

:CLEAR CONTROLLER & SELECT DEVICE 

:VERIFY CONTROLLER CLEAR OPERATION 

:PACK ACKNOWLEDGE IF VOLUME NOT VALID 

:VERIFY PACK ACKNOWLEDGE = 

;RECALIBRATE IF ‘'SKI'' OR ‘PIP"' IS SET. 

:VERIFY RECALIBRAT ION 


BR 18$ O TO 18$ IF NO ERROR 

NOP :RETURN HERE IF ERROR 

EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 29$ . 360 TO 29% IF ERROR 


188: 


SEQ 0098 


a ee ee —. 
ne 


CZRMOBO RMOS/3/2 FC 
T WRITE, WRI 


0163552 
924 016356 
925 


926 
927 goers 


0 2 
928 016356 
929 016356 
930 016364 


936 016430 
937 016434 
938 016442 


3 2 3 3 3-3 OO 
cas deh hg ig adi 
™m 
Nm 


Nm 
N 
oul 


000137 


004737 


004737 


001030 
004 


TNL TST 3 
E CHECK ONES W/ WCE ERROR 


000051 
0 3 


000000 
000200 
043330 


016630 


042774 
043672 


043060 
016630 


044056 


016630 


040000 


056572 


016630 
001346 


107440 


1 8 
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001412 


001346 


001140 
001140 
001142 


001176 


:READ DATA FROM DEVICE 
19$: 


20$: 


#WCD!GO,RMCS10 


#RMDC. (R2)+ 
ARMBA, (R2) + 
#RMWC, (R2) + 


ARMCS1,(R2)+ 


#200, (R2) 


PC,PUT 
20$ 


293 


ZWRITE CHECK DATA DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
;GO TO 20$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY PUT SUBROUTINE 

;GO TO 29% IF ERROR 


; SETUP at INDEX TABLE TO READ ALL REGISTERS 


;WAIT ae TO COMPLETE 


PC,GETSTS 


PC, TIMOUT 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 


:GO READ = eat CHECK DATA OPERATION 


21$: 


BR 
NOP 
EMT 
JMP 


21$ 


29S 


;GO READ ag 5 yet ge _— GET SUBROUT INE 
:GO TO 21$ IF NO ERR 


:RETURN HERE IF ERROR 
;ERROR # DEFINED BY GET SUBROUTINE 
:GO TO 29% IF ERROR 


; CHECK FOR no BC PRIERR WRITE SNe crane OPERATION 


223: 


23$: 


PC ,a(SP)+ 
29$ 


AWCE ,RMCS21 
4$ 


PC ,DTASTS 
23$ 


PC,a(SP)+ 
29$ 


RMCS21,$GDDAT 
#WCE , $GDDAT 
RMCS21, $BDDAT 


R3,$TMPO 


#BUF TwO-2, STMP{ 
337 


HECK FOR PRIMARY ERRORS 
:GO TO 22$ IF NO ERROR 
:RETURN HERE IF ERROR 


ZERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 29% IF ERROR 


2 WAS WCE” DETECTED?? 
svEo. 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 23$ IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # DEFINED BY DTASTS SUBROUTINE 
:GG BACK FOR MORE ERROR CHECKS 

:GO TO 29$ IF ERROR 


sEXPECTED STATUS 
sRECEIVED STATUS 


sFAILING BIT POSITION 
;FAILING ADDRESS 


SEQ 0099 


LLL LALLA LLL CCE CEN CL Ct tN a, i tae -——. a ee 
f - —_— ——— + - -- 
ee en ee ee ee eee a 8 ee. oe ee ee 2 ere + 


* RMO5/3/2 FCTNL TST 3 


WRITE, WRITE CHECK ONES 


re 016444 


94 
941 016446 
942 een 


953 016554 
954 016556 
955 016560 


961 016574 
01 


| 
! 
665 
970 
371 
972 
973 
974 016656 
975 





000471 


0004 
000240 
104000 


013737 


004756 
000137 
050337 
006303 


012737 


107440 


001134 


001140 


044710 


016630 
107440 


016200 


001100 
001276 
001466 
000010 


J 
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w/ WCE ERROR 


001524 
001525 
001360 


001142 
001140 


001134 


001136 


001142 


001226 


BR 
243: 


25$: 


26$: CMP 


27$: 


28$: 


298: 


29$ 


#RMDB , GET INX 


#200,GETINX+1 


~<a 


RMDB1 , $BDDAT 
BUF TWO~2, $GDDAT 
R3,$GDDAT 

#BUF TWO-2, $GDADR 
RMBAI , SBDADR 
#2,$BDADR 
S$GDADR , $BDADR 
26$ 

340 

29$ 
$GDDAT , SBDDAT 
27$ 

341 

29$ 


PC,SECERR 
28s 


PC,a(SP)+ 
29% 


R3,BUF TWO-2 
R3 


29S 
17$ 


;SETUP GET INDEX TABLE 

;SETUP TERMINATOR BYTE 

;SET RMDB INPUT BUFFER = 29% 

:GO READ RMDB VIA GET SUBROUTINE 


;GO TO 25$ IF NO ERROR 
;RETURN HERE IF ERROR 
7ERROR DEFINED BY GET SUBROUTINE 


sRECEIVED DATA 
sEXPECTED DATA 


sEXPECTED ADDRESS 
sRECEIVED ADDRESS 

; CORRECT MEMORY ADDRESS 
—a OX? ? 


;DATA OK?? 
YES! 


+ GO CHECK FOR SECONDARY ERRORS 
TO 28$ IF NO ERROR 

“ RETURN HERE IF ERROR 

sERROR #4 DEFINED BY SECERR SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 
;GO TO 29$ IF ERROR 


;RESTORE DATA PATTERN 
sSHIFT TO NEXT BIT 
sEXIT IF DONE 


:REPEAT TEST FOR NEXT DATA BIT 


J LAER AREER EKER EEE EREEKEREKKREREKKERKEEREKERAAEKAEKEAREERRRERER 


WRITE, WRITE CHECK MULTIPLE SECTORS 


REECE KEE KEKKEEKEEEAEEEKEEAEKCKEEKEEKKKEEKREREKEKEKKEKEEEKKEKEEEEKE 


:*TEST 10 


ASTACK,SP 
$BASE ,RO 
TSTQUE ,R1 
#10, $TESTN 


; SCOPE CALL 

>START OF TEST 

s INITIALIZE STACK POINTER 
:RO = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 


>;SET TEST NUMBER IN APT MAIL BOX 


5 REE ERERR ERE EAE EEEEEEEAEEKEKEKEERR ERE REAR EEER ARERR RRR R HD 


FORMAT ,WRITE,WRITE CHECK 


18110: 
SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 

: LOOP #1 

1$: 


OEE ET NE EO 


CZ7RMOBO RMOS/3/2 FCINL TST 3 
WRITE, WRITE CHECK MULTIFLE SECTORS 


or DEVICE a Yaep FORMAT OPERATION 


T10 


976 
977 016656 
016662 


01 
978 016676 
979 


980 
981 016676 


0 
989 016762 
990 016762 
991 016770 
992 016776 
993 


004737 037316 
154130 


017634 


010000 
0000635 
040242 
070426 
017634 
72060 


000001 
042174 


001553 


000034 
000006 
000004 
000002 
000032 
000000 
000200 
043530 


017634 


042774 


MACRO V04.00 


001444 
001412 


001174 
001176 


2$: 


K 8 
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sPREPARE DEVICE FOR TEST 


-WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘'SKI'' OR ‘PIP’’ IS SET 
; VERIFY RECALIBRATION 

BR 2$ :GO TO 2$ IF NO ERROR 

NOP ;RETURN HERE IF ERROR 

EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 

JMP 24$ :GO TO 24$ IF ERROR 


LOAD — AND GENERATE DATA BUFFER 


; VERIFY 


3$: 


#0,RMDCO -CYLINDER = 0 

; TRACK = 0, SECTOR = 0 ' 
:BUS ADDRESS 

;WORD COUNT FOR 2 SECTORS (2°S COMP) 
316 BIT FORMAT 
MOV #WH! GO.RMCS10 :WRITE HEADER AND DATA COMMAND 


THAT SECTOR IS NOT BAD 
JSR 


PC ,BADSCT ;CALL BAD SECTOR MODULE 
BR :GO TO 3$ IF NO ERR 
TYPE -SCTMSG ; TYPE BAD SECTOR MESSAGE 
EMT sERROR # DEFINED BY BADSCT SUBROUTINE 
JMP 24$ :GO TO 24$ IF ERROR 
MOV #ZEROS ,STMPO ; STARTING ADDRESS OF PATTERN 
MOV #1, $TMP1 sRANGE OF PATTERN 


JSR PC. GENBUF 
:LOAD PUT REGISTER INDEX TABLE FOR FORMAT aQPERATIION 


MOV TINX,R2 :Re = BYTE ENTRY POSITION 
MOVB ARMDC , (R2) + 
MOVB ARMDA , (R2)+ 
MOVB ,(R2)+ 
MOVB .  ARMWC, (R2)+ 
MOV8 ARMOF , (R2)+ 
MOVB #RMCS1, (R2)+ 
“ MOVB #200. (R2) ; TERMINATE TABLE 
;FORMAT THE DRIVE 
JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 5$ :GO TO 5$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT | ;ERROR # DEFINED BY PUT SUBROUTINE 


JMP 24$ :GO TO 24$ IF ERROR 


5$: 


s SETUP moe INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS ;G0 ‘TO GETSTS SUBROUTINE 


Le ee ee ee ee 


;GO GENERATE BUFFER FOR FORMAT 


SEQ 0101 


— = ew orem - _—- —— — ee oe = ee 


| L 8 
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| TIQ WRITE, WRITE CHECK MULTIPLE SECTORS SEQ 0102 
1017 ;WAIT FOR COMMAND TO COMPLETE 
1012 017064 004737 043672 JSR PC,TIMOUT :GO TO TIMOUT SUBROUTINE 
1015 :GO READ STATUS FOR FORMAT OPERATION 
1014 017070 004737 043060 JSR PC,GET ;GO READ REGISTER(S) WITh GET SUBROUTINE 
017074 000404 BR 6$ :GO TO 6$ IF NOE ae 
017076 000240 NOP ;RETURN HERE IF ERR 
017100 104000 EMT sERROR # DEFINED BY °GET SUBROUT INE 
017102 000137 017634 JMP 24$ ;GO TO 24$ IF ERROR 
be 017106 6$: 
1017 : VERIFY NO ERRORS DURING FORMAT 
1018 017106 004737 056572 JSR PC,DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
017112 000405 BR 7$ :G TO 7$ IF NO ERROR 
017114 000240 NOP ;RETURN HERE IF ERROR 
017116 104000 EMT | :ERROR # DEFINED BY DTASTS SUBROUTINE 
917120 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
017122 000137 017634 JMP 24$ :GO TO 24$ IF ERROR 
48 017126 7$: 
1021 sMOVE LOOP ADDRESSES TO NEXT OPERATION 
ss 017126 012737 017200 001124 MOV #8$ ,SLPERR 
1024 ates: DATA BUFFER 
1025 017134 012737 177000 001414 #-256.*2,RMWCO ;CHANGE WORD COUNT 
1026 017142 012737 106456 001416 MOV WBUF ONE , RMBAO ; CHANGE 4 ADDRESS 
1027 017150 012737 001412 MOV #WD ,RMCS10 :WRITE DAT 
1028 017156 012737 072016 001174 MOV #ONES , STMPO ; STARTING ADDRESS OF PATTERN 
1029 017164 012737 000001 001176 MOV #1 ,STMP1 :RANGE OF PATTERN 
1030 017172 004737 042174 JSR PC, GENBUF 
1031 017176 000410 BR IG ;SKIP TO WRITE OPERATION 
1033 LL RRR EERE RARER EERE ERE REE EER ERE REE RE EERE EK 
eae sLOOP #2 WRITE ,WRITE CHECK 
1036 017200 8$: 
1037 
1038 
1039 sPREPARE DEVICE FOR ees OPERATION 
1040 017200 004737 037316 JSR PC, TSTPR ;PREPARE DEVICE FOR TEST 
017204 154730 .WORD 154170 3; TASK DESCRIPTOR AS FOLLOWS: 
>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
: VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘'SKI'’ OR 'PIP'' IS SET 
VERIFY RECALIBRATION 
017206 000404 BR 9$ :GO TO IF NO ERROR 
017210 000240 NOP ;RETURN HERE IF ERROR 
017212 104000 EMT | sERROR # DEFINED BY TSTPRP SUBROUTINE 
017214 000137 017634 JMP 24S :GO TO 24$ IF ERROR 
1041 017220 9$: 
1042 
1043 ;WRITE DATA. TO THE DRIVE 
1044 017220 | 10$: 
1045 017220 012737 000061 001412 MOV #WD!GO,RMCS10 ;WRITE DATA COMMAND 





A ee Se 8 a ee ee Ree a ee 


RR 
NO 
© 
— 
| 
mM 
mM 
oO. 


| 


MINN OOe 
© 
_ 
™~ 
Nm 
wi 
oO 


300 

1056 017304 
017304 
017310 


3 017314 


064 0173352 
06 


067 017332 


017366 
1070 017372 
1071 Aree 


017406 
1072 017412 
1073 


1074 
1075 017412 
1076 017420 
1077 


CZRMOBO RMO5/3/¢ FCINL TST 3 
T10 WRITE, WRITE CHECK MULTIPLE SECTORS 


012737 
000410 


001553 
000006 


043530 
017634 


042774 
043672 


043060 
017634 


044056 


017634 
056572 


017634 
044710 


017634 


017422 001124 


MOV 
VB 


11$: 


eS Se 


#PUTINX ,R2 
ARMDA, (R2) + 


#200, (R2)+ 


PC ,PUT 
11$ 


24$ 


M 
MACRO V04.00 4-APR-81 01:15:59 PAGE 13-32 


;LOAD PUT REGISTER INDEX TABLE 


; TERMINATE TABLE 


3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 11$ IF NO ERROR 
:RETURN HERE IF 


ERROR 
;ERROR # DEFINED BY PUT SUBROUTINE 
;GO TO 24$ IF ERROR 


> SETUP Fie INDEX TABLE Fete READ ALL REGISTERS 


WAIT a? eaaiae " COMPLETE 


:GO READ STATUS FOR WRITE COMMAND 
JSR PC,GET 


PC,GETS 


PC, TIMOUT 


:GO TO GETSTS SUBROUTINE 
:GO TO TIMOUT SUBROUTINE 


:GO READ “gy gi gt WITH GET SUBROUTINE 
;GO TO 12$ IF NO ERROR 
;RETURN HERE IF ER 


ROR 
sERROR # DEFINED BY GET SUBROUTINE 
;GO TO 24$ IF ERROR 


O CHECK FOR PRIMARY ERRORS 
:GO TO 13$ IF NO ERROR 


[RETURN HERE IF ERROR 
ee # DEFINED BY PRIERR SUSROUTINE 


;GO BACK FOR MORE ERROR CHECKS 
;GO TO 24$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 14$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # pgs BY DTASTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:GO TO 24$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 15$ IF NO ERROR 

:RETURN HERE IF ERROR 

:ERROR # Pin nen BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:GO TO 24$ IF ERROR 


NOP 
EMT 
JMP 24$ 

12$: 

: CHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC PRIERR 3G 
BR 13$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 24$ 

13$: 
JSR PC ,DTASTS 
BR 14$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 24$ 

14$: 
JSR PC,SECERR 
BR 15$ 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMP 24$ 

15$: 

: CHANGE LOOP ADDRESSES 
MOV #16%$,$LPERR 
BR 17$ 





;SKIP TO NEXT OPERATION 


SEQ 0103 


— > od ~— — wd 3d 
ad oad ond —_— Soo 
LER RR VSS 


—— — ..2 
— -— 4 
— | | 
=SSe 


bs 


— ee 


MOBO RMO5/3/2 FCINL TST 3 


MACRO V04.00 


SE ee eee 
TT esses seen 


WRITE, WRITE CHECK MULTIPLE SECTORS 


017422 
2 


3 
017422 


017426 


017430 
017432 
017434 


017436 
017442 


7 
017442 


017526 


017526 


017532 


004737 
154130 


004737 


004737 


037316 


017634 


000051 
001553 
000006 
000032 
000034 


000004 

002 
000000 
000200 
043330 


017634 


042774 


043672 


017634 


044056 


001412 


043060 
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WER SSASSLASLASSRESAARAAARRARASE SERRE RES RRR RE RR RRR SRS RRR SEES EE SS | 


sPREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

:SELECT DEVICE & VERIFY DEVICE AVAILABLE 

;CLEAR CONTROLLER & SELECT DEVICE 

i VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 

“VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ''SKI'’ OR ‘PIP’' IS SET 

; VERIFY RECALIBRATION 

;GO TO 17$ IF NO ERROR 

ZRETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 


“LOOP #3 WRITE CHECK 
163: | 
: PREPARE DEVICE FOR READ OPERATION ! 

JSR PC, TSTPR 

“WORD 154130 

BR 17$ 

NOP 

EMT 

JMP 24$ 


17$: 
;READ DATA FROM DEVICE 
"MOV #WCD!GO,RMCS10 
, NX R2 


G0 TO 24$ IF ERROR 


;READ DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 19$ IF NO ERROR 


;RETURN HERE IF ERROR 
sERROR # DEFINED BY PUT SUBROUTINE 


:GO TO 24$ IF ERROR 


:GO TO GETSTS SUBROUT INE 


:GO TO TIMOUT SUBROUTINE 


;GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 20% IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 


MOVB A, ¢ + 
MOVB #RMOF , (R2) + 
MOVB #RMDC, (R2)+ 
MOVB #RMBA , (R2) + 
MOVB ARMWC , (R2)+ 
MOVB #RMCS1, (R2)+ 
MOVB #200, (R2) 
JSR PC PUT 
BR 19$ 
NOP 
EMT 
JMP 24$ 
19$: : 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 
sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 
7GO READ STATUS FOR READ OPERATION 
JSR PC,GET 
BR 
NOP 
EMT 
JMP 24$ 


20$: 


:GO TO 24$ IF ERROR 


; CHECK FOR ERRORS OS iene READ OPERATION 
JSR PC,PRIERR 


BR 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 21$ IF NO ERROR 


SEQ 0104 


—— 


RT 
Sr seen tne 


—— “ - - _— — - A ee — — a 


B 9 
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c7ZR 
710 WRITE, WRITE CHECK MULTIPLE SECTORS SEQ 0105 
017562 000240 nop -RETURN HERE IF ERROR 
017564 104000 EM; TERROR # DEFINED BY PTITAR SUBROUTINE 
077566 004736 JSR PC a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
017570 000137 017634 JMP 24$ *GO TO 246$ IF ERROR 
1112 017574 21$: 
1113 017574 004737 956572 JSR PC .DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
017600 000405 BR 22$ :GO TO 22$ IF NO ERROR 
017602 000240 NOP “RETURN HERE IF ERROR 
017604 104000 EMT “ERROR # DEFINED BY DTASTS SUBROUTINE 
017606 004736 } JSR PC .a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
017610 000137 017634 JMP 24$ “GO TO 24$ IF ERROR 
1114 017614 223: 
1115 017614 004737 044710 JSR PC,SECERR :60 CHE CK FOR SECONDARY ERRORS 
017620 000405 : BR 23$ TO 23$ IF NO ERROR 
017622 000240 NOP ‘RETURN HERE. IF ERROR 
017624 104000 EMT sERROR # DEFINED BY SECERR SUBROUT INE 
017626 004736 JSR PC.a(SP)+ ‘60 BACK FOR MORE ERROR CHECKS 
017630 000137 017634 JMP 24$. GO TO 24$ IF ERROR 
1116 017634 238: 
1118 017634 24$: 
1120 SL ERR RARER ERR ERE ARERR REAR EEREREREREEEREREREREEEEEEERERES 
;*TEST 11 WRITE, READ W/ IMPLIED SEEK 
SPER SNES ES RS SRS ENS CS SS SOS SAUNT OS See eNe ES ee ees eeesetseeseeses 
017634 rST11: : 
017634 000004 SCOPE :SCOPE CALL 
017636 000240 NOP “START OF TEST 
017640 012706 001100 MOV #STACK,SP ; INITIALIZE STACK POINTER 
017644 013700 001276 MOV $BASE ,RO -RO = UNIBUS ADDRESS 
017650 013701 001466 MOV TSTQUE,R1 =(R1) = DEVICE BEING TESTED 
sail 017654 012737 000011 001226 MOV #11, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1122 Cette titi ii iiitii itil i iti iii iii, 
1 125 ‘LOOP a FORMAT WRITE ,READ 
Bs 017662 1$: 
1127 :PREPARE THE DEVICE FOR FORMAT OPERATION 
1128 017662 004737 037316 JSR PC, TSTPR : PREPARE DEVICE FOR TEST 
017666 154130 .WORD ° 154130 : TASK DESCRIPT FOLLOWS : 
| : *SELECT DEVICE e VERIFY DEVICE AVAILABLE 
“CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
*PACK ACKNOWLEDGE IF VOLUME NOT VALID 
‘VERIFY PACK ACKNOWL ED DGE 
-RECALIBRAT “SkI'' OR ‘“PIP’' IS SET 
- VERIFY RE CALIBRATION 
017670 000404 . BR 2$ -GO TO 2$ IF NO ERROR 
017672 000240 NOP “RETURN HERE IF ERROR 
017674 104000 : EMT ) “ERROR # DEFINED BY TSTPRP SUBROUTINE 
rit 017676 000137 021054 JMP 31$ G0 TO 31$ IF ERROR 
1130 _ :LOAD PARAMETERS AND GENERATE DATA BUFFER 
1131 017702 2$: 
1132 017702 012737 000000 001446 MOV #0. RMDCO | : CYLINDER = 0 
1133 017710 012737 000000 001420 MOV #0.RMDAO “TRACK = 0, SECTOR = 0 
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WRITE, READ W/ IMPLIED SEEK SEQ 0106 
1134 017716 013737 001446 021056 MOV RMDCO, 32$ ; SAVE aphanate CYLINDER 
1135 017724 012737 106436 001416 MOV #BUF ONE , RMBAO ;BUS ADDRESS 
1136 617732 012737 177376 001414 MOV #~258. ,RMWCO 2 + + 236, WORDS (2°S COMP) 
1137 017740 012737 0710000 001444 MOV #FMT16,RMOFO 716 BIT F 
ie 017746 012737 000063 001412 MOV #WH!GO,RMCS19 ;WRITE HEADER AND DATA COMMAND 
1140 ;VERIFY THAT SECTOR IS NOT BAD 

017754 904737 040242 JSR PC ,BADSCT oat BAD gh MODULE 

017760 000405 BR $ O 3$ IF NO ERROR 

017762 104401 070426 TYPE ~ScTMSG ‘HYPE OBAD SECTOR MESSAGE 

66 1 EMT : ERROR E 


0177 04000 # DEFINED BY BADSCT SUBROUTINE 
017770 000137 021054 JMP 31$ ;GO TO 31$ IF ERROR 


1 017774 3$: 

2 017774 012737 072016 001174 MOV #ONES , STMPO 7 STARTING ooacee OF PATTERN 
020002 000001 001176 MOV #1,STMP1 ;RANGE OF PATTERN 

4 020019 004737 042174 JSR PC, GENBUF ; GO GENERATE BUFFER FOR FORMAT 


;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
2702 001555 MOV #PUTINX ,R2 :R2 = BYTE ENTRY POSITION 
2722 000034 MOVB ARMDC , (R2)+ 


000002 
2722 000032 MOVB ARMOF , (R2) + 
2722 000000 MOVB #RMCS1, (R2)+ 
2712 000200 MOVB #200, (R2) ; TERMINATE TABLE 


6 , 

7 ;FORMAT THE DRIVE 

8 020054 004737 043530 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
020060 000404 BR 5$ ;GO TO 5$ IF NO ERROR 


NOP ROR 
020064 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
BScOre 000137 021054 ss JMP 31$ :GO TO 31$ IF ERROR 


;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
020072 0047357 042774 JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 


sWAIT FOR COMMAND TO COMPLETE | 
020076 004737 043672 _ JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


:GO READ STATUS FOR FORMAT OPERATION 
020102 004737 043060 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
000404 BR 6$ ;GO TO 6$ IF NO ERROR 
0 000240 NOP :RETURN HERE IF ERROR 
2 104000 EMT ERROR # DEFINED BY GET SUBROUTINE 
3 000137 021054 “ . JMP 31$ :GO TO 31$ IF ERROR 


| 
| 
; VERIFY NO ERRORS DURING FORMAT 
020120 004737 056572 JSR PC,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
020124 000405 BR 7$ :GO TO 7$ IF NO ERROR 
020126 000240 NOP :RETURN HERE IF 


—+s SY — —» ~~ — 
— te —_— — FO es 
BAL AW 2Ss 


— — — 
SSHR 


ERROR 
020130 104000 EMT ;ERROR # DEFINED BY DTASTS SUBROUTINE 
020132 004736 JSR PC ,a@(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
020134 000137 021054 JMP 31$ :GO TO 31$ IF ERROR 
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re ee = 


WRITE, READ W/ IMPLIED SEEK SEQ 0107 
1g 020140 7$: 
1173 sMOVE LOOP ADDRESSES TO NEXT OPERATION 
1174 020140 012737 020150 001124 MOV #8$ ,.$LPERR 
13z2 020146 000410 bf :SKIP TO WRITE OPERATION 
1159 SLR EERE ERE EERE ERE EERE EEE EERE REEHH ES 
1178 :LOOP #2 WRITE ,READ 
1179 
ae 020150 8$: 
1182 : PREPARE DEVICE FOR waite OPERATION 
1183 020150 004737 037316 JSR PC, TSTOR ;PREPARE DEVICE FOR TEST 
020154 1541350 . WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:;CLEAR CONTROLLER & SELECT DEVICE 
i VER IFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
-RECALIBRATE IF “Tits OR ‘PIP’’ IS SET 
“VERIFY RECAL IBRATION 
020156 000404 BR oF GO TO 9$ IF NO ERROR 
020160 000240 NOP * RETURN HERE IF ERROR 
020162 104000 . EMT :ERROR # DEFINED BY TSTPRP SUBROUTINE 
0201 000137 021054 JMP 31$ =GO TO 31$ IF ERROR 
1184 020170 9$: 
1185 020170 012737 001466 001446 MOV #822., :SEEK TO LAST CYLINDER 
a 020176 012737 000005 001472 MOV eSEEKIGO. RMCS10 s;WRITE SEEK COMMAND 
1188 0202 004737 043330 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
020210 000404 BR 10$ -GO TO 10$ IF NO ERROR 
020212 000240 NOP “RETURN HERE IF ERROR 
020214 104000 EMT -ERROR # DEFINED BY PUT SUBROUTINE 
020216 000137 021054 JMP 31$ :GO TO 31$ IF ERROR 
Bs 020222 10$: 
1191 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
1190 020222 004737 042774 JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 
1193 sWAIT FOR COMMAND TO COMPLETE 
“ie 020226 . 004737 043672 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
1195 :GO GET REGISTER STATUS 
1196 020232 004737 043060 JSR PC,GET :GO READ REGISTERIS) WITH GET SUBROUTINE 
020236 000404 BR -GO TO 11$ IF NO ERROR 
02024 000240 NOP RETURN HERE IF ERROR 
020242 104000 EMT *ERROR # DEFINED BY GET SUBROUTINE 
020244 000137 021054 JMP 31$ :GO TO 318 IF ERROR 
Lh 020250 11$: 
1199 :VERIFY RESULTS OF SEEK COMMAND 
1200 020250 004737 051174 JSR PC,SEKSTS : GO VERIFY RESULTS OF SEEK OPERATION 
020254 000405 RR 12$ -GO TO 12% IF NO ERROR 
020256 000240 NOP sRETURN HERE JF ERROR 
020260 104 EMT sERROR # DEFINED BY SEKSTS SUBROUTINE 
020262 0047 JSR PC, a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
0264 000137 021054 JMP 31$ -GO TO 318 IF ERROR 
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11 WRITE. READ W/ IMPLIED SEEK SEQ 0108 
1201 020270 12$: 
1203 :SETUP PARAMETERS AND EXCUTE WRITE DATA COMMAND 
| 1204 020270 13$: 
: 1205 020270 013737 021056 001446 MOV 32$,RMDCO sRESTORE CYLINDER 
| 1206 020276 012737 177400 001414 MOV #-256. ,RMWCO “CHANGE WORD COUNT 
| 1207 020304 012737 106442 001416 MOV #BUF ONE +4 , RMBAO _ CHANGE BUS ADDRESS 
| 1208 020312 012737 000061 001412 MOV #WD!GO,RMCS10 “WRITE DATA COMMAND 
| 1209 020320 012702 001553 MOV #PUTINX,R “LOAD PUT REGISTER INDEX TABLE 
1210 020324 112 000006 MOVB  A#RMDA, (R2)+ 
| 1211 020330 112722 000034 MOVB  #RMDC,(R2)+ 
1212 020334 112722 000032 MOVB  #RMOF. (R2)+ 
1213 020340 112722 000004 MOVB ARMBA, (R2)+ 
1214 020344 112722 000002 MOVB  #RMWC.(R2)+ 
1215 020350 112722 000000 MOVB = #RMCS1, (R2)+ 
1216 020354 112722 000200 MOVB #200, (R2)+ : TERMINATE TABLE 
1218 020360 004737 043330 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
020364 000404 BR 14$ -GO TO 14% IF NO ERROR 
20366 000240 NOP “RETURN HERE IF ERROR 
020370 104 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
020372 000137 021054 JMP 31S *GO TO 31$ IF ERROR 
1219 020376 14$: 
1221 :WAIT FOR COMMAND TO COMPLETE 
we 020376 004737 043672 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
1223 :GO READ STATUS FOR WRITE COMMAND 
1224 020402 004737 043060 JSR PC,GET =GO READ REGISTER(S) gil GET SUBROUTINE 
020406 000404 BR -GO TO 15$ IF NO ERR 
020410 000240 NOP “RETURN HERE IF ERROR 
020412 104000 EMT “ERROR # DEFINED BY GET SUBROUTINE 
020414 137 021054 JMP 31$ -GO TO 31$ IF ERROR 
1225 020420 15$: 
1227 =CHECK FOR ERRORS DURING WRITE OPERATION 
1228 020420 004737 044056 JSR PC PRIERR ;GO CHECK FOR PRIMARY ERRORS 
020424 000405 -GO TO 16$ IF NO ERROR 
020426 000240 NOP “RETURN HERE IF ERROR 
20430 104000 EMT SERROR # DEF INED BY PRIERR SUBROUTINE 
020432 004736 JSR PC a(SP)+ -GO BACK FOR MORE ERROR CHECKS 
___ 020434 000137 021054 JMP 31$ *GO TO 31% IF ERROR 
1229 020440 16$: 
1230 020440 004737 056572 JSR PC_PTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
020444 000405 BR 17$ :GO TO 17$ IF NO ERROR 
020446 000240 NOP RETURN HERE IF ERROR 
020450 104000 EMT “ERROR # DEFINED BY DTASTS SUBROUTINE 
020452 004736 JSR PC, a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
020454 000137 021054 JMP 31$ >GO TO 31$ IF ERROR 
1231 020460 17$: 
1232 020460 004737 044710 JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
020464 000405 BR 18$ -GO TO 18$ IF NO ERROR 
020466 000240 NOP “RETURN HERE IF ERROR 
020470 104 EMT “ERROR # DEFINED BY SECERR SUBROUTINE 
020472 004736 JSR PC,a(SP)+ : G0 BACK FOR MORE ERROR CHECKS 
020474 000137 021054 MP 31$ 0 TO 31$ IF ERROR 
1233 020500 18$: | 


bcs 


—-.. " = 
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T11 WRITE, READ W/ IMPLIED SEEK SEQ 0109 
1234 
1235 ; CHANGE LOOP ADDRESSES 
1236 020500 012737 020510 0601124 MOV #19%,$LPERR 
esta 020506 000410 BR 20$ :SKIP TO NEXT OPERATION 
1239 SRE REE REE EERE EERE REE REE e 
1240 sLOOP #3 READ 
1241 
1s7¢ 020510 19$: 
1244 ;PREPARE DEVICE FOR cine Filer 
12465 020510 004737 037316 JSR PC,TSTP sPREPARE DEVICE FOR TEST 
020514 154130 . WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF a, OR *PIP’’ IS SET 
ca ta RE CAL IBRAT ION 
020516 000404 Ace BR 20$ O 10 20$ IF NO ERROR 
020520 000240 NOP RETURN HERE IF ERROR 
020522 104000 | EMT :ERROR # DEFINED BY TSTPRP SUBROUTINE 
020524 0001357 021054 JMP 31$ ;GO TO 31$ IF ERROR 
020530 20$: 
020530 012737 001466 MOV #822. ,RMDCO ;SEEK TO LAST CYLINDER 
205 012757 000005. MOV #SEEK G0, RMCS10 :WRITE SEEK COMMAND 
020544 004737 043350 JSR PC PUT 7 WRITE REGISTER(S) WITH PUT SUBROUTINE 
020550 000404 BR 21$ O TO 21$ IF NO ERROR 
020552 000240 NOP RETUSN HERE IF ERROR 
020554 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
020556 0001357 021054 JMP 31$ :GO TO 31$ IF ERROR 
1$2) 020562 21$: 
1253 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
1254 020562 004737 042774 JSR PC.GETSTS :GO TO GETSTS SUBROUTINE 
1255 ;WAIT FOR COMMAND TO COMPLETE 
1256 020566 0047357 043672 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
1257 :GO GET REGISTER STATUS 
1258 020572 004737 043060 JSR PC,GET :GO READ ‘gah a WITH GET SUBROUTINE 
020576 000404 BR 22$ :GO TO 22$ IF NO — 
020600 000240 NOP ;RETURN HERE IF ERR 
020602 104000 EMT ;ERROR # DEFINED BY OGET SUBROUT I NE 
020604 000137 021054 3 JMP 31$ :GO TO 51% IF ERROR 
te 020610 22$: 
1261 sVERIFY RESUTS OF SEEK COMMAND 
1262 020610 004737 051174 JSR PC,SEKSTS :GG VERIFY RESULTS OF SBEK OPERATION 
020614 000405 BR :GO TO 23$ IF NO ERROR 
020616 000240 NOP ;RETURN HERE IF ERROR 
020620 104000 EMT ”- sSRROR # DEFINED BY SEKSTS SUBROUTINE 
020622 004736 JSR PC ,a@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
020624 000137 021054 JMP 31$ :GO TO 31% IF ERROR 
1263 020630 23$: 


WRITE, READ W/ 
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620724 
1280 020750 


1281 
1282 


020730 
1283 


1284 

1285 020734 
020740 
020746 

1286 020752 

1287 


1288 
1289 020752 
020756 


02 

1292 021 
1293 021 
021 

21 


and end ond ead end ond and end ond and umd 
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000071 


107446 001416 
001553 


000200 
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021054 
056572 


021054 
044710 


021054 
042432 
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SEEK 


001446 
001412 


vi gg PARAMETERS AND EXCUTE READ DATA COMMAND 


MOV 32$,RMDCO sRESTORE CYLINDER 
;READ DATA COMMAND 


MOV #RD!GO,RMCS10 
‘ ; LOAD START ING BUFFER ADDRESS 
;LOAD PUT REGISTER INDEX TABLE 


MOVB #200, (R2) 


JSR PC,PUT oe wt NS ac pane WITH PUT SUBROUTINE 
BR 25$ O ERROR 


O 25$ IF N 
NOP RETURN HERE IF ERROR 
EMT sERROR #4 DEFINED BY PUT SUBROUTINE 
JMP 31$ :GO TO 31% IF ERROR 
25$: 
sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GCO TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR READ OPERATION 
JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR :GO TO 26$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT sERROR #4 DEFINED BY GET SUBROUTINE 
JMP 31$ :GO TO 31$ IF ERROR 
26$: 
: CHECK FOR ERRORS gota? READ OPERATION 
JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
27$ -GO TO 27% IF NO ERROR 
~ NOP zRETURN HERE IF ERROR 
EMT :ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
a7 JMP 31$ :GO TO 31$ IF ERROR 
JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 28$ -GO TO 28$ IF NG ERROR , 
NOP :RETURN HERE IF ERROR 
EMT :ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
pom JMP 31$ :GO TO 315 IF ERROR 
JSR PC,SECERR : GO CHECK FOR SECONDARY ERRORS 
BR 29$ -GO TO 29$ IF NO ERROR 
NOP > RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
298 JMP 31$ -GO TO 31% IF ERROR 


:GO COMPARE WRITE, READ DATA BUFFERS 


JSR PC, CMPBUF 
> STARTING ADDRESS OF WRITE BUFFER 


-WORD BUFONE+4 


SEQ 0110 


po - 
‘ 
; 
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WRITE, READ W/ IMPLIED SEEK SEG 0111 
021040 107446 -WORD BUF TWO+4 ; STARTING —— OF READ BUFFER 
921042 000404 BR 30$ ;GO TO 30$ IF NO ERR 
021044 000240 NOP sRETURN HERE IF ERROR 
021046 104000 EMT :ERROR # DEFINED BY CMPBUF SUBROUTINE 
021050 000137 021054 JMP 31$ :GO TO 31$ IF ERROR 
1296 021054 30$: 
1297 
1298 021054 31$: 
16m 021054 000401 BR 33% 
Ed 021056 000000 32$: -WORD 0 
1303 021060 33$: 
1304 
1305 : ZOOS IOIDICIIOIGIOIOIOIIUIOIOIOISIIIUIOIUIOIUIOIOIOIOIIOIOIOIOIOIOIOIOIOIOIOIOIOOTI OI OTOIIN 
:*TEST 12 WRITE, WRITE CHECK W/ HEAD SWITCHING 
CRI TOU IR ROR III UR IIR IOI IO i i i kk ee ke 
021060 1ST12: 
021060 000004 SCOPE ) SCOPE CALL 
021062 000240 NOP ;START OF TEST 
021064 012706 001100 MOV ASTACK , SP sINITIALIZE STACK POINTER 
021070 013700 001276 : MOV SBASE ,RO ;RO = UNIBUS ADDRESS 
021074 013701 001466 ‘MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
1306 021100 012737 000012 001226 MOV #12,$TESITN :;SET TEST NUMBER IN APT MAIL BOX 
1307 SD III IIIT OTTO ITO TOIT TOR TOTTI IOI TOT TOTTI IOS TOT TOTTI TOSOIOTO TO TOTOT TT TI TOTOT HK IK 
ie ;LOOP #1 FORMAT ,WRITE,WRITE CHECK 
1310 ;LOAD PARAMETERS AND GENERATE DATA BUFFER 
1311 021105 1$: 
1312 0217106 012737 000000 001446 MOV #0,RMDCO CYLINDER = 0 
1315 ©21114 112737 000000 001421 MOVB #0,RMDAO+1 : TRACK = 0 
1314 021122 112737 000037 001420 2%: MOVB #31. ,RMDAO sSECTOR = 31. 
1315 021130 012737 010000 001444 MOV #FMT16,RMOFO :16 BIT FORMAT 
1316 021136 012737 106436 001416 MOV #BUF ONE , RMBAO :BUS ADDRESS 
1317 021144 012737 176774 001414 MOV #-258.*2 ,RMWCO sWORD COUNT FOR 2 SECTORS (2°S COMP) 
Eas 021152 012737 0000635 001412 MOV #wH! GO,RMCS10 ;WRITE HEADER AND DATA COMMAND 
1320 sVERIFY THAT SECTOR IS NOT BAD 
021160 004737 040242 JSR PC ,BADSCT + CALL BAD ey MODULE 
021164 000405 BR 3$ GO TO 5$ IF NO ERROR 
C21166 104401 070426 TYPE -SCTMSG | “TYPE BAD SECTOR MESSAGE 
021172 104000 EMT :ERROR # DEFINED BY BADSCT SUBROUTINE 
021174 000137 022266 JMP 30$ G0 TO 30$ IF ERROR 
1321 021200 3$: 
1322 021200 123727 001420 000037 CMPB RMDAO ,#31. :;I1S LAST TRACK ASSIGNED ? 
1323 021206 001345 BNE 2$ :BR IF NO 
1324 021210 012757 072016 001174 MOV HONES , STMPO ;STARTING ADDRESS OF PATTERN 
1325 021216 012737 000001 001176 MOV #1,$TMP1 ;RANGE OF PATTERN 
1358 021224 004737 042174 JSR PC, GENBUF :GO GENERATE BUFFER FOR FORMAT 
1328 sPREPARE THE DEVICE FOR FORMAT OPERATION 
1329 021230 0047357 0573516 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
021234 154130 .WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 


:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 


LS em nec ee er eh re -=SN 
LO me et ee oe me ee +e ee Se a — ee oe ee ee ~~ - - ee ee -- - 
_ —_— - = - - . ns - _ 


Se OS ee eee te ee a ere a en er ee er 
f - LLL CC CS CE ste a ea —— + 


SS SN seen 
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etre teste te beet yet ee tet 
LA 
teh tee) they 


¥E 


ce mee ee weed eed eed aed Wd S.-W 
Wr -OOOn 


WNW 


021250 


021250 
021254 


021304 


021310 


021326 


021326 


8 
021352 
9 


021354 


021354 
02 


~ 3 - 3 3 1 I CE 
A 3 2 2 I 
se phen el ttt lh 
Nm 
nm 


000137 


004737 


004737 


004737 


022266 


001553 
000034 
000006 


000200: 


043330 


022266 


042774 


043672 


043060 


022266 


056572 


022266 


021446 001124 


177000 001414 
106436 001416 
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WRITE, WRITE CHECK W/ HEAD SWITCHING 


4$: 


BR 

NOP 
EMT 
JMP 


4$ 


30$ 
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:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘’SKI*’ OR ‘PIP*' IS SET 
; VERIFY RECAL IBRATION 

:GO TO 4$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 30$ IF ERROR 


;LOAD PUT eae: INDE X — FOR essiey OPERATIION 


> FORMAT 


5$: 


MOV PUTINX, 
MOVB  #RMDC.(R2)+ 
MOVB  #RMDA,(R2)+ 
MOVB = #RMBA, (Re) + 
MOVB '. #RMWC,(R2)+ 
MOVB © #RMOF,(R2)+ 
MOVB § #RMCS1,(R2)+ 
MOVB #200, (R2) 


THE DRIVE 
JSR Pp 


BR 

NOP 
EMT 
JMP 


30$ 


R2 = BYTE ENTRY POSITION 


; TERMINATE TABLE 


:GO WRITE sy ea WITH PUT SUBROUTINE 
;GO TO 5$ IF NO ERROR 
:RETURN HERE IF ERROR 


sERROR # DEFINED BY PUT SUBROUTINE 
;GO TO 30$ IF ERROR 


: SETUP Tt INDEX TABLE TO READ ALL REGISTERS 


sWAIT FOR COMMAND '¥ COMPLETE 
TIMOUT 


6$: 
: VERIFY 


7$: 


JSR 


:GO READ STATUS FOR FORMAT 
JSR PC,GET 


BR 


NOP 
EMT 
JMP 


PC,GETSTS 


rey 


30$ 


NO ERRORS DURING FORMAT 
SR TASTS 


eo 


PC,a(SP)+ 
30$ 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 
OPERATION 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
;GO TO 6$ IF NO ERROR 


:RETURN HERE IF ERROR 
;ERROR # DEFINED BY GET SUBROUTINE 


:GO TO 30$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 7$ IF NO ERROR 
:RETURN HERE IF ERROR 
;ERROR # DEFINED BY DTASTS SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 
;GO TO 50$ IF ERROR 


;MOVE a ate oe ll OPERATION 


;REGENERATE BUFFER 
MOV #-256.+*2 ,RMWCO 
#BUF ONE , RMBAO 


MOV 


#83 ,$ 


;CHANGE WORD COUNT 
; CHANGE BUS ADDRESS 


— eS ere te ee ee we mee 


SEO O1i¢ 


; 021446 


— 2 3 3 2 9 =) 3 td 


LNINAANWASW 
+P 


76 021446 
021452 


021454 _ 


021554 
1393 021560 


012737 
012737 
012737 
004737 


004737 
154130 


0127357 
004737 
04 


004737 
004737 


004737 
04 


MOBO ree FCTNL TST 3 
WRITE, WRITE CHECK W/ HEAD SWITCHING 


072060 
0600001 
000060 
042174 


037316 


022266 
000005 
043330 


022266 


042774 
043672 


043060 
022266 


051174 


022266 


MACRO V04.00 


001174 
001176 
001412 


001412 


12%: 
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MOV #Z7EROS,STMPO ;STARTING ADDRESS 
MOV #1,$1M TMP 1 3; RANGE 
MOV #WD, RMCS10 ;WRITE DATA 
JSR PC, GENBUF ;GENERATE BUFFER 
BR 9$ ;SKIP TO WRITE OPERATION 
be FEAR KERR 
= LOOP #2 WRITE WRITE CHECK 
8$: 
;PREPARE DEVICE FOR oy BE OPERATION 
JSR PC,TSTPR PREPARE DEVICE FOR TEST 
. WORD 154130 - TASK DESCRIPTOR AS FOLLOWS: 
= SELECT DEVICE & VERIFY DEVICE AVAILABLE 
= CLEAR CONTROLLER & SELECT DEVICE 
* VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
*RECALIBRATE IF ‘’SKI’* OR ‘PIP’’ IS SET 
“VERIFY RECAL IBRATION 
BR 9$ :GO TO 9$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
oa JMP =°=—s 30$ =GO TO 30$ IF ERROR 
MOV #SEEK!GO,RMCS10 ;LOAD SEEK COMMAND 
JSR PC ,PUT :GO og REGISTER(S) WITH PUT SUBROUTINE 
BR 10$ 3;GO TO 10$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT = ERROR # DEFINED BY PUT SUBROUTINE 
JMP 30$ :GO TO 30$ IF ERROR 
10$: 
:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS -GO TO GETSTS SUBROUTINE 
s;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
:GO GET REGISTER STATUS 
JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 11$ -GO TO 11$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT sERROR # DEFINED BY GET SUBROUTINE 
JMP 30$ :GO TO 30$ IF ERROR 
11$: 
VERIFY RESULTS OF SEEK COMMAND 
JSR PC,SEKSTS ‘< a ee OF SEEK OPERATION 
BR 12$ 12$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY SEKSTS SUBROUTINE 
JSR PC,a(SP)+ GO BACK FOR MORE ERROR CHECKS 
JMP 30$ :GO TO 30% IF ERROR 


ee te ee me ee ee ee ee et ee —--=— 


SEQ 0113 


OL LLC. ELGG LS CC CE A ett ttn ate, SE VS se 
[ 


Se 


WANA 
BNEAR 


SB 


OOo 


WN 


SS55555: 
© 
Nm 


616 

Me 021622 
1406 

1407 021626 

021632 


021640 
021644 


021644 


—> oud —_— — 2 
BLE HSE HHL 


ad od aad — 23 — 
ARW M= SOB 


021650 


021654 


02 
021672 


021672 


021726 
1422 021732 
1423 021732 
021736 





— — -—) 2) 2) 2 ss 


004737 


004737 


004737 





CZRMOBO RMOS/3/2 FCINL TSi 3 


000061 
001553 
000006 
000034 
000032 
000004 
000002 
000000 
000200 
043350 


022266 


042774 
043672 


043060 
022266 


044056 


022266 
056572 


022266 
044710 


022266 


K 9 
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WRITE, WRITE CHECK W/ HEAD SWITCHING 


001412 


:WRITE DATA TO THE DRIVE 
15$: 


MOV AWD 'GO,RMCS10 :WRITE DATA COMMAND 
MOV #PUTI NX ,R2 ;LOAD PUT REGISTER INDEX TABLE 
MOVB #RMDA, (R2) + 
MOVB HRMDC, (R2)+ 
MOVB #RMOF , + 
MOVB FRMBA, (R2) + 
MOVB ARMWC, (R2) + 
MOVB #RMCS1, (R2)+ 
MOVB #200, (R2) + ; TERMINATE TABLE 
JSR PC,PUT :;GO WRITE gg tt WITH PUT SUBROUTINE 
BR 14$ GO TO 14$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT > ERROR # DEFINED BY PUT SUBROUTINE 
JMP 30$ :GO TO 30$ IF ERROR 
14$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 
s;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 3:GO TO TIMOUT SUBROUTINE 
:;GO READ STATUS FOR WRITE COMMAND 
JSR PC ,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 15$ :GO TO 15% IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY GET SUBROUTINE 
JMP 30$ :GO TO 30$ IF ERROR 
15$: 
: CHECK FOR ERRORS tee nee OPERATION 
JSR PC,PRIERR + GO CHECK FOR PRIMARY ERRORS 
BR 16$ -GO TO 16$ IF NO ERROR 
NOP = RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
JSR. PC ,a(SP)+ 3:GO BACK FOR MORE ERROR CHECKS 
ttn JMP 30$ GO TO 30$ IF ERROR 
JSR PC .DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 17$ =G0 TO 17$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT sERROR # pAb BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
+30 JMP 30$ :GO TO 30$ IF ERROR 
JSR PC,SECERR ‘= oe FOR SECONDARY ERRORS 
BR 18$ 18$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT sERROR # yan pala BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
196 JMP 30$ -GO TO 50$ IF ERROR 


a me a ne me 8 re em ee mw ee me St 


SEQ 0114 


SD eS 
f —— —— ee ee 
LO ET Ne 


se ee 


| CZRMOBO RMOS/3/2 FCINL TST 3 


Tle 


14 
14 
10 
be 1 


14355 


Ee ne EEE ste a = 


022070 
1453 022074 
1454 


1455 





27 02 
pg: 021760 
30 

3 


WRITE, WRITE CHECK W/ HEAD SWITCHING 


1752 


1432 
1435 021762 
1434 


1436 021762 


021766 


621770 


022026 


022026 


0 
022054 


022054 
022 


22060 
022062 
022064 


-, 
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012737 621762 001124 
000410 


004737 
154130 


000404 


037316 


022266 
000005 
043330 


022266 


042774 


043672 


043060 


022266 


051174 


022266 


001412 


:CHANGE LOOP ADDRESSES 
MOV 


#19$,S$LPERR 
20$ :SKIP TO NEXT OPERATION 


SS RRA AAAAAAAAA REAR REAR ARARARHEAEAARAAAAARRHREKHAEERA RRA 


“LOOP #3 
19$: 


WRITE CHECK 


; PREPARE Pie FOR READ OPERATION 


208: 


21$: 


. WORD 


JSR 


EMT 
JMP 


PC,TSTPRP sPREPARE DEVICE FOR TEST 

154130 ; TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
: VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
;RECAL IBRATE IF *'SKI*’ OR ‘PIP*’ IS SET 


20$ ‘60 
RROR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 


30$ ;GO TO 30$ IF ERROR 
ASEEK!GO,RMCS10 :LOAD SEEK COMMAND 
PC,PUT 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
21% :GO TO 21$ IF NO ERROR 

:RETURN HERE IF ERROR 

:ERROR # DEFINED BY PUT SUBROUTINE 
30$ ;GO TO 30$ IF ERROR 


; SETUP La INDEX TABLE TO READ ALL REGISTERS 


;WAIT ae TO COMPLETE 


:GO READ REGISTER STATUS 
JSR PC,GET 


22$: 


PC .GETSTS ;GO TO GETSTS SUBROUTINE 


PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


:GO READ gy gh oy ll GET SUBROUTINE 


BR :GO TO 22$ IF NO ERR 
NOP :RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY GET SUBROUTINE 
JMP 30$ :GO TO 30$ IF ERROR 
;GO VERIFY RESULTS OF SEEK 
JSR PC,SEKSTS ;GO VERIFY RESULTS OF SEEK OPERATION 
BR 23$ :GO TO 235$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT ERROR # DEFINED BY SEKSTS SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
JMP 30$ :GO TO 30$ IF ERROR 


23$: 


;READ DATA FROM DEVICE 


LLL OE A TN A » 


SEQ 0115 


ND 


128 022074 


1464 

1465 022136 

1466 

1467 022142 
022146 


1475 Oeste 


0 
1484 022266 
1485 
1486 022266 
1487 





ee 


022164 


ee a ee eee —s -——- ee | ae ee ec 


MOBO RMOS/3/2 FCINL TST 3 
WRITE, WRITE CHECK W/ HEAD SWITCHING 


000051 
001553 
000032 
000034 
000004 


000002 
000000 
000200 


043330 
022266 


042774 
043672 


043060 
022266 


044056 


022266 
056572 


022266 
044710 


022266 
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001412 


25$: 


rod Shed RMCS10 
X,R2 


#200, (R2) 
PC ,PUT 


25$ 


30$ 


;READ DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
;GO TO 25$ IF NO ERROR 


;RETURN HERE IF ERROR 
;ERROR # DEFINED BY PUT SUBROUTINE 


:GO TO 30$ IF ERROR 


; SETUP a INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS 


:WAIT FOR COMMAND TO COMPLETE 


JSR 


:GO ae ae * a OPERATION 


BR 

NOP 

EMT 

JMP 
26$: 


PC, TIMOUT 


ca 


30$ 


:GO TO GETSTS SUBROUTINE 

:GO TO TIMOUT SUBROUTINE 

:GO READ REGISTER(S) WITH GET SUBROUTINE 
;GO TO 26$ IF NO ERROR 


:RETURN HERE IF ERROR 
ERROR # gta ane GET SUBROUTINE 


-GO TO 30$ IF E 


; CHECK ie a bc Paieae READ OPERATION 


27$: 


28$: 


293: 
30$: 


PC,a(SP)+ 
30$ 


PC,DTASTS 
28$ 


PC,a@(SP)+ 
30$ 


PC, SECERR 
29S 


PC,a(SP)+ 
30$ 


+ G0 CHECK FOR PRIMARY ERRORS 
ERROR 


ERROR 
yg # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO “Sos IF ERROR 


+ G0 VERIFY RESULTS OF DATA TRANSFER 
TO 28$ IF NO ERROR 


“RETURN HERE IF ERROR 

sERROR # thee BY Di ASTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 

:GO TO 30$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO T) 29$ IF NO ERROR 

:RETLRN HERE IF ERROR 

7; ERRCR : ohn ae BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 

;GO TO 30$ IF ERROR 


SEQ 0116 


— ee ee + a ee 


9 
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ZR 
15 WRITE, WRITE CHECK W/ MID-TRANSFER SEEK SEQ 0117 
1488 a , SEERA EEA RR ERAA EEE E EEE EEE ee 
:*TEST 13 WRITE, WRITE CHECK W/ MID=TRANSFER SEEK 
SRR Re IOI SIRI TOIOSOSOIOIOIOIOSOSOSOIOTOIOIOTOTOTOT TOTUSOTOTUTOTOTOTOS OR TTT ER 
022266 TST13: 
922266 000004 SCOPE ;SCOPE CALL 
022270 000240 NOP ;START OF TEST 
022272 012706 001100 MOV ASTACK, SP s INITIALIZE STACK POINTER 
022276 013700 001276 MOV $BASE ,RO ;RO = UNIBUS ADDRESS 
022302 013701 001466 MOV TSTQUE ,R1 ;(R1) = DEVICE BEING TESTED 
1489 022306 012737 000015 001226 MOV #15, $TESTN 77SET TEST NUMBER IN APT MAIL BOX 
1490 Bg BeBe Be Ke Be Be IK He RII ITH Ke BT TET TTT ISOS TOTO TO TITTIES TOIT OI IOI AIIM 
pe 4 ;LOOP #1 FORMAT ,WRITE,WRITE CHECK 
1493 ;LOAD PARAMETERS AND GENERATE DATA BUFFER 
1494 022314 1$: 
1495 022314 012737 000000 001446 MOV #0,RMDCO ;CYLINDER = 0 
1496 022322 013737 001334 001420 2$: MOV LSTRK,RMDAO ;SET LAST TRACK AND 
1497 022330 112737 000037 001420 MOVB #31. ,RMDAO ;LAST SECTOR 
1498 022336 012737 010000 001444 MOV #FMT16, go :16 BIT FORMAT 
1499 022344 012737 106436 001416 MOV #BUF ONE , RMBAO ;BUS ADDRESS 
1500 022352 012737 176774 001414 MOV #-258. “3 RMWCO ;WORD COUNT FOR 2 SECTORS (2° COMP) 
Fs 4 022360 012737 000065 001412 MOV #wWH!GO,RMCS10 sWRITE HEADER AND DATA COMMAND 
1505 ;VERIFY THAT SECTOR IS NOT BAD . 
022366 004737 040242 JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
022372 000405 | BR 3$ :GO TO 3$ IF NO ERROR 
022374 104401 070426 TYPE SCTMSG : TYPE BAD SECTOR MESSAGE 
022400 104000 7 EMT sERROR # DEFINED BY BADSCT SUBROUTINE 
022402 000137 025510 JMP 25$ ;GO TO 25$ IF ERROR 
1504 022406 3$: 
1505 022406 123737 001421 001555 CMPB RMDAO+1,LSTRK+1 :IS LAST TRACK ASSIGNED ? 
1506 022414 001342 BNE $ : IF NO 
1507 022416 012737 072060 001174 _ MOV #ZEROS ,STMPO : STARTING ADDRESS OF PATTERN 
1508 022424 012737 000001 001176 MOV #1, $TMP1 :RANGE OF PATTERN 
12yp 0224352 004737 042174 | JSR PC, GENBUF :GO GENERATE BUFFER FOR FORMAT 
1511 7 sPREPARE THE DEVICE FOR FORMAT OPERATION 
1512 022436 004737 037516 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
022442 154130 .WORD 154130 : TASK DESCRIPTOR AS FOLLOWS: 


>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 

;PACK ACKNOWLEDGE IF VOLUME NOT VALID 

: VERIFY PACK ACKNOWLEDGE 

;RECAL IBRATE IF ‘’SKI"* OR ‘PIP’ IS SET 


022444 000404 BR 4$ ;GO TO 4$ IF NO ERROR 
022446 000240 NOP [RETURN HERE IF ERROR 
022450 104000 EMT ;ERROR # DEFINED BY TSTPRP SUBROUTINE 
022452 000137 023310 JMP 25$ :GO TO 25% IF ERROR 
vaiz 022456 4$: 
1515 “ ;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
1516 022456 012702 001553 MOV APUTINX,Re :R2 = BYTE ENTRY POSITION 
1517 022462 112722 000034 MOVB ARMDC, (Ro) 
1518 022466 112722 000006 MOVB #RMDA, (R2) + 


a A ee OE A A A 


— 
Ww 
™ 
oO 
oO 
Se 
Nm 
re 


1532 
1 


544 022610 
545 022616 
546 022624 


eB ee ed ee ed ed ed od = = 3 4 3 
EF¥ 
Ww & 
oon 
OO 
mn 
Mr 
y aye 
Ww 
ons 


pA pdt Say Sh hd 


022646 
0 022652 


WMVIiwn 


MMiwiw 


004737 


154130 


TST 3 MACRO 
HECK W/ MID-TRANSFER 


000004 
600002 
000032 
000000 
000200 
043330 
023310 


042774 
043672 


043060 
023310 


056572 


023310 
022654 
000060 
177000 


106436 
072016 
000001 
042174 


037316 


001124 


v04 .00 
SEEK 


5$: 


6$: 


#RMBA, (R2)+ 
#RMCS1,(R2)+ 
#200, (R2) 
PC,PUT 

é$ 


25$ 


B 19 
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; TERMINATE T4BLE 
: GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
TO 6$ IF NO ERROR 
“RETURN HERE IF ERROR 


60 T0 # DEFINED BY PUT SUBROUTINE 
;GO TO 25$ IF ERROR 


; SETUP Ton INDEX TABLE TO READ ALL REGISTERS 


;WAIT hase ere * TO COMPLETE 


7$: 
: VERIFY 


8$: 
sMOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV RR 


ee BUFFER 
MUD -RM 


BR 
NOP 
EMT 


JMP 


NO ERRORS DURING FORMAT 
JSR PC,DTA 


NOP 
EMT 
JSR 
JMP 


PC,GETSTS 


PC,TIMOUT 


25 
STS 


PC ,a(SP)+ 
25$ | 


#9$ ,SLPE 


:60 BA 
GO TO 55s IF E 


> CHANGE » 


;GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR FORMAT OPERATION 
JSR PC,GET 


:GO READ eg yg WITH GET SUBROUTINE 
:GO TO 7$ IF NO ERROR 

ZRETURN HERE IF ERROR 

sERROR # we BY GET SUBROUTINE 


=GO TO 25$ IF E 


:GO VERIFY RESULTS OF DATA meron 

:GO TO 8$ IF NO ERROR 

:RETURN HERE IF ERROR 

ee eat “ ge BY DTASTS SUBROUTINE 
FOR ——_ CHECKS 


;WRITE DATA 
‘WORD COUNT 

; CHANGE BUS ADDRSS 
:PATTERN ADDRESS 
:PATTERN RANGE 


:SKIP TO WRITE OPERATION 


Utetitti ttt t titi tit tii titi iiitiii iii 


MOV $10 
MOV #~256. :3. RMWCO 
MOV #BUF ONE , RMBAO 
MOV MONE S , STMPO 
MOV #1, $TMP1 
JSR PC. GENBUF 
BR 10$ 
“Toop #2 WRITE WRITE CHECK 
9$: 


site! vas FOR WRI 3 re ee 


PC, TSTPRP 
154130 





PREPARE DEVICE FOR Line 
: TASK DESCRIPTOR AS FOLL 
“SELECT DEVICE & VERIFY Y Device AVAILABLE 


SEQ 0118 


LLL SE A 
SR 
ee —— 


C7RMOBO RMO5/3/2 FCTINL TST 3 


13 


022662 
022664 


022666 
022670 
022674 


REEy 


022674 
022674 


eed ed et ed ot etd et dt tt 4 
AP a eA VVviVviw 
AR wR 
© 
mnron 


— — 2 2 
Ww 


722 


004737 
04 


023310 


025310 


042774 


043672 


043060 


023310 


044056 


023310 
056572 


MACRO V04.00 4=APR-81 
WRITE, WRITE CHECK W/ MID-TRANSFER SEEK 


001412 


+108: 
he DATA TO THE DRIVE 


12$: 


BR 


NOP 
EMT 
JMP 


C 
01:15:59 PAGE 


#WD!GO,RMCS10 
#PU R2 


#200, (R2)+ 


PC ,PUT 
12$ 


25$ 


13-48 


SEQ 0119 


;CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 


sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
s VERIFY PACK ACKNOWLEDGE 
;RECAL IBRATE IF at tine OR ‘PIP’ IS SET 


‘60 T 
sRETURN HERE IF 


RROR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 25$ IF ERROR 


;WRITE DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


; TERMINATE TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 12$ IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # DEFINED BY PUT SUBROUTINE 


:GO TO 25$ IF ERROR 


sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 


;WAIT ot taba oe TO COMPLETE 


13$: 


BR 


NOP 
EMT 
JMP 


,TI1MOUT 


25$ 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 


:GO READ STATUS FOR WRITE COMMAND | 
JSR Poet Be. ae cag ge gh GET SUBROUTINE 


13$ IF NO ERR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY GET SUBROUTINE 
:GO TO 25$ IF ERROR 


> CHECK ier" on oc baleen WRITE OPERATION 


14$: 


PC,a(SP)+ 


25$ 


PC DTASTS 
15$ 


;GO CHECK FOR PRIMARY ERRORS 
14$ IF NO ERROR 


ERROR 
; ERROR “ oan ak BY PRIERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:G0 TO 558 1 IF ERROR 
+ GO Ven icS RESULTS OF DATA TRANSFER 
O TO 15$ IF NO ERROR 


‘RETURN HERE IF ERROR 
sERROR #4 DEFINED BY DTASTS SUBROUTINE 


re a Oe eS ee ee ee eee eee 


SLE ES 
a ae ee ee ee 


—~ 


T13 


WRITE, 
023040 


1 
1599 025076 
1600 


1601 
1602 023076 
023102 


SESSaRe 


elojejejejlejlejioji=i2) 
OLAX 


SRSRSKSRIS 


me el ed eed aed od = Ww td td = J 3 3 
AXAXAAOAOAO 
anf <u and aad and aad <a aod 
NOUSWN Oo 
MoMonMoPonofrononofongs 
WIWAIWAWAANAWOW 
anh «od <a al <ul aad aa aad ead ad 


© 
Nm 


023176 
1618 023202 


023202 


012737 
000410 


004737 
154130 


~ CZ2RMOBO RMOS/3/2 FCTNL TST 3 
WRITE CHECK W/ MID=-TRANSFER SEEK 


023510 
044710 


023310 


023076 


037316 


023310 


023310 


042774 





MACRO V04.00 


001124 


001412 


10 


JSR PC ,a(SP)+ 


JMP 25$ 

15$: 
JSR PC, SECERR 
BR 16$ 
NOP 
EMT 
JSR PC a(SP)+ 
JMP 25$ 

16$: 

=CHANGE LOOP ADDRESSES 
MOV #17$,$LPERR 
BR 18$ 

>LOOP #3 WRITE CHECK 

17$: 

: PREPARE DEVICE FOR READ pOPERAT ION 

PC. TSTPRP 
ine 154130 
BR 18$ 
ee NOP 
i EMT 

JMP 25$ 


188: 4 
;READ DATA FROM DEVICE 
ea. #wCD!GO,RMCS10 
XR2 


MOV MPUTINX, 
MOVB ARMDA , (R2) + 
MOVB ARMOF , (R2)+ 
MOVB ARMDC , (R2)+ 
MOVB ,(R2)+ 
MOVB ARMWC , (R2) + 
MOVB #RMCS1,(R2)+ 
MOVB #200, (R2) 
JSR PC,PUT 

BR 20$ 

NOP 

EMT 

JMP 25$ 


20$: 


D 
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:GO BACK FOR MORE ERRCR CHECKS 
;GO TO 25% IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
;GO TO 16$ IF NO ERROR 
;RETURN HERE IF ER 


ROR 
:ERROR # DEFINED BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
;GO TO 25% IF ERROR 


;SKIP TO NEXT OPERATION 


'MeOBRARESBRASASASASAERRARERSRARRASARRRRASRRRASARRRASRRRRRARRARRRR SRSA RARE SS SS | 


sPREPARE DEVICE FOR TEST 


; TASK DESCRIPTOR AS FOLLOWS: 
>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER-CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 
“VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘'SKI'’ OR ‘PIP’’ IS SET 
3g AY RE CAL IBRAT ION 

O TO 18$ IF NO ERROR 

“RETURN HERE IF ERROR 
;ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 25$ IF ERROR 


sREAD DATA COMMAND 
:LOAD PUT REGISTER INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 


;GO TO 20$ IF NO So 
;RETURN HERE IF ERR 


OR 
sERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 25$ IF ERROR 


7 S& TUP Tie INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS 


:GO TO GETSTS SUBROUTINE 


rr es eo eee ee i ee 


SEQ 0126 


LL eS aE 
ee 


MOBO RMOS/3/2 FCTNL TST 3 
WRITE, WRITE CHECK W/ MID=TRANSFER SEEK 


) 4 
1626 023230 
1627 


1628 
1629 023230 
023234 


0 4 
1630 023250 


1647 
1648 023346 


043672 


043060 
023310 


044056 


023310 
056572 


023310 
044710 


023310 


001100 


6 
000014 


000000 
000001 


037316 


MACRO v04.00 


001226 


E 10 
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;WAIT FOR COMMAND TO COMPLETE 
JSR PC,TIMOUT :GO TO TIMOUT SUBROUTINE 


7GO READ STATUS FOR READ OPERATION 
JSR PC,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 21$ :GO TO 21$ IF NO ERROR 
;RETURN HERE IF ERROR 


NOP 
EMT ;ERROR # DEFINED BY GET SUBROUTINE 
218 JMP 253 :GO TO 25$ IF ERROR 


;CHECK FOR ERRORS eae READ OPERATION 
JSR PC,PRIERR :GO CHECK FOR a 


BR 3GO TO 22$ IF NO ERR 
NOP * RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
age JMP 25$ :GO TO 25$ IF ERROR 
JSR PC,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 23$ =GO TO 23$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT s;ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
2% JMP 25$ :GO TO 25$ IF ERROR 
JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 243 :GO TO 24$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT - ERROR #4 DEFINED BY SECERR SUBROUTINE 
JS PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
JMP 25$ :GO TO 25$ IF ERROR 
245: 
25$: 


Wet Ree eeARSAASSARASLEOAASAAEASAS SARS SSR ASR SAR SR RS AR RA RARA ARRAS ASRS SSDS SS 


“*TEST 14 WRITE. READ W/ HCE ERROR 


STREAK EARAERERERREREARAEAREEKRARAEKARA HRA EEERERKEKH 


TST14: 

SCOPE SCOPE CALL 

NOP :START OF TEST 

MOV #STACK,SP : INITIALIZE STACK POINTER 

MOV SBASE ,RO *RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 pre = DEVICE BEING TESTED 

MOV #14, $TESIN SET TEST NUMBER IN APT MAIL BOX 
SLEEK EEE EAE AREER EKER EERE ER ER 
:LOOP #1 FORMAT ,WRITE.READ 

MOV #0,R4 | -R4 = 1ST HEADER WORD 
1s: MOV #1,R3 -R3 = HCE BIT 


;PREPARE THE DEVICE stan ata OPERATION 
JSR PC ISTP ;PREPARE DEVICE FOR TES? 


SEQ 0121 


- A =~. 


WRITE, READ W/ 


023352 


023554 


55 
1683 023552 
023556 
023560 
023562 
023564 
1684 023570 


154130 


— 2 —  — 9 - 4 CE 
a 
MMMM 

™~ 

™ 

Nm 


Nm 
™N 
= 
MN 


— CZRMOBO RMOS/3/2 FCTINL TST 3 
HCE ERROR 


025156 


040242 
070426 


042174 


1064 36 
1064 36 
1064 56 


0015535 
000034 


000006 
000004 
000002 
000032 
000000 
000200 
043330 


025004 
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-wORD 154130 : TASK DESCRIPTOR AS FOLLOWS: 
=SELECT DEVICE & VERIFY DEVICE AVAILABLE 
=CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 

*RECALIBRATE IF ‘‘SKI'’ OR 'PIP’’ IS SET 
: VERIFY RECALIBRATION 

BR 3$ :GD TO 3$ IF NO ERROR 

NOP *RETURN HERE IF ERROR 

EMT “ERROR # DEFINED BY TSTPRP SUBROUTINE 

JMP 46$ -GO TO 46$ IF ERROR 

LOAD PARAMETERS AND GENERATE DATA BUFFER 
001446 MOV #0, RMDCO =CYLINDER = 0 
001420 MOV #0..RMDAO : TRACK = 0, SECTOR = 0 
001414 MOV #BUFONE,RMBAO :BUS ADDRESS 
001414 MOV #-258..RMWCO :2 + 356, WORDS (2°S COMP) 
001444 MOV #FMT16,RMOFO -16 BIT FORMA 
001412 MOV #WH'GO,RMCS10 :WRITE HEADER. AND DATA COMMAND 
:VERIFY THAT SECTOR IS NOT BAD 
JSR PC BADSCT :CALL BAD SECTOR MODULE 
4$ -GO TO 4$ IF NO ERROR 
TYPE _SCTMSG :TYPE BAD SECTOR MESSAGE 
EMT “ERROR # DEFINED BY BADSCT SUBROUTINE 
= JMP 42$ -GO TO 42$ IF ERROR 
001174 MOV #ZEROS.STMPO :STARTING ADDRESS OF PATTERN 
001176 | MOV #1,$TMP1 “RANGE OF PATTERN 

JSR PC, GENBUF -GO GENERATE BUFFER FOR FORMAT 

= CHANGE HEADER WORD TO FORCE HCE DURING WRITE & READ 

17 RS. “BUFONE(R4)  :SET OR RESET FOR HCE?? 

BIC R3 .BUF ONE (R4) =RESET BIT FOR HCE 

S$: BIS R3,BUFONE(R4)  -:SET FOR HCE 
jLOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 

MOV #PUTINX,R2 > .R2 = BYTE ENTRY POSITION 

MOVB  #RMDC,(R2)+ 

MOVB  #RMDA.(R2)+ 

MOVB  #RMBA,(R2)+ 

MOVB  #RMWC,(R2)+ 

MOVB  #RMOF.(R2)+ 

MOVB  #RMCS1,(R2)+ 

es MOVB #200, (R2) : TERMINATE TABLE 

JSR PC PUT :60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

BR 8$ 0 TO 8$ IF NO ERROR 

NOP RETURN HERE IF ERROR 

EMT “ERROR # DEFINED BY PUT SUBROUTINE 

" IMP 42% -GO TO 42$ IF ERROR 


nm ee ee ee ee re see ee ee _ 


ee ee me ee ee 


SEO 0122 


CZRMOBO RMO5S/3/2 FCTNL 


WRITE, READ wW/ 


1685 
1686 
. 023570 


8 
023574 


1696 023636 
023636 
He 023644 


1705 023646 
06 


7 
1708 023646 
023652 


* 023654 
023656 
023660 
023662 

1709 023666 
1710 

17117 

1712 023666 
1713 023666 
1714 023674 
1715 023702 
1716 02710 
1717 023714 
1718 023720 


004737 


004737 
000 
000137 


004737 


012737 
000410 


004737 
154130 


042776 
043672 


043060 
025004 


056572 


025004 


023646 


037316 


025004 


106442 
bee 


00006 
001553 


000006 
000034 


007124 
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7 SETUP at INDEX TABLE e READ ALL REGISTERS 


iwAIT ie ame ie COMPLETE 


:GO READ STATUS FOR FORMAT OPERATION 
JSR PC,GET 


PC,GETSTS :GO TO GETSTS SUBROUTINE 


PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


;GO READ “IE NO ERROR GET SUBROUTINE 


BR :GO TO 9$ IF 
NOP = RETURN HERE IF ERRO 
EMT ;ERROR # DEFINED BY OGET SUBROUT INE 
~ JMP 42$ =GO TO 42% IF ERROR 
: VERIFY NO ERRORS DURING FORMAT 
JSR TASTS 3;GO VERIFY aks OF DATA TRANSFER 
BR 3;GO TO 10$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
JMP 42$ :GO TO 42$ IF ERROR 
10$: 
-MOVE LOOP ADDRESSES TO tg OPERATICN 
MOV #11$,$LPERR 
BR 12$ :SKIP TO WRITE OPERATION 
ete ee ee eRe eR RRS RRRRARASRAASAARRARAARASRA SAAR SSAA ASR ASR SAASRA AAA AAA RASA ASA ASA AS SE 
> LOOP #2 WRITE ,READ 


11$: 


; PREPARE a FOR WRITE OPERATION 


PC, TSTPRP s;PREPARE DEVICE FOR TEST 

ee 154130 : TASK DESCRIPTOR AS FOLLOWS: 
= SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
: VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘‘SKI°* OR 'PIP’' IS SET 
ge Ad RECAL IBRATION 

AR 12% =GO 12$ IF NO ERROR 

NOP * RETURN HERE IF ERROR 

EMT “ERROR # DEFINED BY TSTPRP SUBROUTINE 

JMP 42$ :GO TO 42$ IF ERROR 

12$: 
‘oi DATA TO THE DRIVE 

MOV #BUFONE+4,RMBAO ; CHANGE BUS ADDRESS 

MOV #=-256. ,RMWCO : CHANGE WORD COUNT 

MOV #WD!GO,RMCS10 “WRITE DATA COMMAND 

MOV #PUTINK,R2 :LOAD PUT REGISTER INDEX TABLE 

MOVB ARMDA, (R2) + 

MOVS ARMDC, (R2)+ 


SEG 0123 


a ee ee 


CZ7RMOBO RMO5/3/2 FCTNL 
WRITE, READ W/ 


14 


inl <inld anal ond cad aed and end 
i ie | NJ NWN 
WANA WR MORON 
WN—]- OO GBnoe 


1755 


023766 


023772 


023776 
024002 


024014 


024014 


024030 


024034 


004737 
004737 


004737 
000137 


004737 


000137 


005704 
001006 


032703 


032737 
001102 


004737 


TST 3 
HCE ERROR 


000032 


043330 


025004 


042774 


043672 


043060 


025004 


044056 


025004 


010000 
140000 


000200 


056572 


025004 


MACRO v04.00 


001352 


14$: 


H 10 
13= 


4-APR=81 01:15:59 PAGE 
MOVB #RMOF , (RZ) + 
MOVB #RMBA. (R2)+ 
MOVB #RMWC , (R2) + 
MOVB ARMCS1, (R2)+ 
MOVB #200, (R2)+ 
JSR PC PUT 
sta 14$ 
NOP 
EMT 
JMP 42$ 


53 


: TERMINATE TABLE 


3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO0 TO 14$ IF NO ER ay 

;RETURN HERE IF ERROR 

;ERROR #4 DEFINED BY PUT SUBROUTINE 


:GO TO 42$ IF ERROR 


; SETUP so INDE X Moe TO READ ALL REGISTERS 


PC,GETSTS 


:WwAIT sai TO COMPLETE 


153: 


PC, TIMOUT 


BR 15$ 
NOP 
EMT 

42$ 


:GO TO GETSTS SUBROUTINE 


;GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR WRITE COMMAND 
JSR PC,GE! 


GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 15$ IF NO ERROR 
sRETURN HERE IF ERROR 


;ERROR # DEFINED BY GET SUBROUTINE 
:G0 TO 42$ IF ERROR 


; CHECK ie oc PRIERR WRITE OPERATION 


;DECODE 
16$: 


: VERIFY 
17$: 


18$: 


JSR PC ,a(SP)+ 
42$ 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 16$ IF NO ERROR 


>RETURN HERE IF ERROR 

;ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 42$ IF ERROR 


THE TYPE OF ERROR PRODUCED BY THE BIT POSITION OF R3 


TST R4 

BNE 17$ 

BIT #FMT16,R5 
BNE 


$ 
BIT AMSE ! USE ,R3 
22$ 


et: THIS THE FIRST HEADER WORD ? 


res tt FER BE SET ? 
: SHOULD Gece GF SET ? 


THAT A HEADER COMPARE ERROR WAS DETECTED 


BIT #HCE ,RMER1! 
24$ 


JSR PC,DTASTS 
18% 


JSR PC ,a(SP)+ 
42$ 


;WAS HCE DETECTED ?? 
a 3 ee 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 18$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 42% IF ERROR 


LLL EE EC CL I ee ae a 


SEQ 0124 


LL AL LLL LE LL A LC OC CLL I CITT tt et tt te ta a 
oe - 


CS Ce 


rrr etre eto seston Ee ee 


-——-———_-—— 


CZ7RMOBO RMOS/5/2 FCTNL 
WRITE, READ wW/ 


ve Seats 


114 


024140 


024144 
624144 
024152 


024154 


024212 


024216 
024216 
024224 


2 024226 


024304 
024310 


024310 


013757 


032737 
001046 


004737 
000405 
000240 
104000 
004736 
000137 


012737 


000137 


032737 
001021 


004736 
000137 


012737 


TST 3 
HCE ERROR 


001352 
400200 
001174 


001174 
001176 


025904 
000020 


056572 


025004 


000020 
001352 


025004 
100000 


056572 


025004 


001400 
100000 


025004 


044710 


025004 


024316 
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001142 
001140 


001352 


001400 


001124 


19$: 


: VERIFY 
O$: 


21$: 


s VERIFY 
2$: 


3$: 


25$: 
; CHANGE 


MOV RMER11,$BDDAT 
MOV #MHCE , SGDDAT 
MOV R4,STMPO 
BNE 19$ 
INC STMPO 
MOV R3,$7MP1 
EMT 344 
JMP 42$ 
THAT A FORMAT ERROR WAS 
BIT MFER,RMER’] 
BNE 24$ 
JSR PC ,DTASTS 
BR 21% 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMP 42$ 
MOV #FER, SGDDAT 
MOV RMER11,$BDDAT 
EMT 343 
JMP 42$ 
THAT A BAD SECTOR ERROR 
BIT #BSE,.RMERZI 
BNE 24$ 
JSR PC .DTASTS 
BR 23$ 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMP 42$ 
MOV RMER21,$BDDAT 
MOV #BSE .SGDDAT 
EMT 345 
JMP 42% 

_;CHECK FOR OTHER ERRORS 

£4: 
JSR PC,SECERR 
BR 25$ 
NOP 
EMT 
JSR PC a(SP)+ 
JMP 42$ 


LOOP ADDRESSES 
MOV 


#26$,$LPERR 


sRECEIVED STATUS 


spare’ iS STATUS 


HEADER —_ NUMBER AND 
‘ADJUST NUMBER 


3R3 = BIT POSIITON 


DETECTED 
;WAS FER DETECTED ?? 
s¥es °3 


+ GO VERIFY RESULTS OF DATA TRANSFER 
21$ IF NO ERROR 


ERROR 
;ERROR # DEFINED BY DTASTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:GO TO 42$ IF ERROR 


sEXPECTED STATUS 
sRECEIVED STATUS 


WAS DETECTED 
;WAS BSE DETECTED ?? 
<Jes. 0 


>GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 23$ IF NO ERROR 
:RETURN HERE IF ERROR 


> ERROR # DEFINED BY DTASTS SUBROUTINE 
;GO BACK FOR 
:GO TO 42$ IF ERROR 


sRECEIVED STATUS 
sEXPECTED STAIUS 


MORE ERROR CHECKS 


;GO CHECK FOR SECONDARY ERRORS 
;GO TO 25$ IF NO ERROR 
:RETURN HERE IF ERROR 


sERROR # DEFINED BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
;GO TO 42$ IF ERROR 


FC AARARAREAEEAAARERAEREEREARARARRARAAERARERARREREAEAHAEAHRERAR RENEE 


a ee ee ee eee 
rrr rt ee a ee 


SEQ O12 


‘ 


t 
5 


Ee 


CZ7RMOBO RMO5/3/2 FCTNL 


WRITE, READ wW/ 


1798 
1799 
1800 024316 
1801 


1802 
1803 024316 
024322 


024324 


024436 
024436 


024442 


ONO US Whe 


S 


024446 


004737 
154130 


— — 3 3 3 2 IB OOOO 
— aed 3 oo) 3 2) 3 —) —) —3 — 


04 
000240 
104000 
000137 


004737 


004737 


037316 


025004 


107446 
177400 


000000 
000200 
043330 


025004 


042774 
043672 


04 3060 
025004 


044056 


MACRO 
OR 


7LO0P #3 
26$: 


J 10 
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READ 


7 PREPARE Plies FOR pita ne ae 


ers: 


:READ DATA FROM 
283: 


293: 


. WORD 


BR 

NOP 
EMT 
JMP 


PC. TSIF sPREPARE DEVICE FOR TEST 
186130 ; TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘'SKI'’ OR ‘PIP’’ IS StT 
; VERIFY RECALIBRATION 
27$ ;GO TO 27% IF NO ERROR 
;RETURN HERE IF ERROR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 
42% ;GO TO 42$ IF ERROR 


DEVICE 


#BUF TWO+4,RMBAO ; CHANGE BUS ADDRESS 
#-256. ,RMWCO ; CHANGE WORD COUNT 
#RD'GO.RMCS10 ;READ DATA COMMAND 
#PUTINX,R2 s;LOAD PUT REGISTER INDEX TABLE 
#RMDA, (R2) + 
#RMOF , (R2)+ 
#RMDC ,(R2)+ 
#RMBA , (R2) + 
ARMWC , (RZ) + 
ARMCS1, (R2)+ 
#200, (R2) 
PC PUT -GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
29$ -GO TO 29$ IF NO ERROR 
:RETURN HERE IF ERROR 
:ERROR #4 DEFINED BY PUT SUBROUTINE 
42$ :GO TO 42$ IF ERROR 


7 SETUP wit INDEX TABLE TO READ ALL REGISTERS 


PC,.GETSTS :GO TO GETSTS SUBROUTINE 


;WAIT deat tates Fed TO COMPLETE 


;GO READ Pica FOR READ OPERATION 


30$: 


BR 

NOP 
EMT 
JMP 


PC,TIMOUT :GO TO TIMOUT SUBROUTINE 
PC,GET ;GO READ ag Set SS WITH GET SUBROUTINE 
30$ :GO TO 30$ IF NO ERROR 


:RETURN HERE IF ‘ERROR 
sERROR # DEFINED BY GET SUBROUTINE 
42% :GO TO 42$ IF ERROR 


; CHECK 4" ERRORS gos READ OPERATION 


PC,PRIERR :GO CHECK. FOR PRIMARY ERRORS 


ee eee ee mmm me 


SEQ 0126 


ee ee ees ee 


_ CZRMOBO RMOS/3/2 FCTNL TST 
| HCE ERROR 


WRITE, READ W/ 


024470 


024500 
33 er ene 


0 G0 00 G0 Co 00 CO 
RAK 


39 024516 
0 024522 


024524 
024524 
024532 


C24534 


RESRRERE 


1858 024610 


1 
1 
1859 024614 
1860 024614 
024622 
1 


024624 
30 


024666 
1873 024674 
1874 


000137 


005704 
001006 


032703 


032737 
061102 


032737 
001046 


012737 
013737 
104343 
000137 


032737 
001021 


3 


025004 


010000 
140000 


000200 


056572 


025004 
001352 
000200 
001174 


001174 
001176 


025004 
000020 


056572 


025004 


000020 
001352 


025004 


100000 


K 10 
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001352 


001142 
001140 


001352 


00714: 
001142 


001400 


31$: 


>VERIFY 


32$ 


33$: 


34$: 


35$ 


5463: 


37$ 


> VERIFY 


>VERIFY 


;GO TO 31$ IF NO ERROR 
sRETURN HERE IF ERR 


OR 
3 ERROR DEFINED BY PRIERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
;GO TO 42$ IF ERROR 


ND ia THE FIRST HEADER WORD ? 


Ay FER BE SET ? 
: SHOULD BSE BE SET ? 


THAT A HEADER COMPARE ERROR WAS DETECTED 


BR 31$ 

NOP 

EMT 

JSR PC, a(SP)+- 
JMP 42$ E 
TST R4 

BNE 32$ 

BIT #FMT16,R3 
BNE 35$ 

BIT #MSE ! USE ,R3 
BNE 37$ 

BIT #HCE,RMER1] 
BNE 39$ 

JSR PC,DTASTS 
BR 33$ 

NOP 

EMT 

JSR PC, a(SP)+ 
JMP 42$ 

MOV RMER11,$BDDAT 
MOV #HCE .SGDDAT 
MOV R4,$TMPO 
BNE - 34$ 

INC $T 

MOV R-,STMP1 
EMT 344 

JMP 42$ 

THAT A FORMAT ERROR WAS 
BIT AFER,RMER1! 
BNE 39$ 

JSR PC .DTASTS 
BR 36$ 

NOP 

EMT | : 

JSR PC ac(SP)+ 
JMP 42$ 

MOV #FER,$GDDAT 
MOV RMER11 , $BDDAT 
EMT 343 

JMP 42$ 

THAT A BAD SECTOR ERROR 
BIT #BSE .RMER2Z 1 
BNE 39$ 


;WAS HCE DETECTED ?? 
Yes... 3 


;GO VERIFY RESULTS OF DATA TRANSFER 
;GO TO 33$ IF NO ERROR 
;RETURN HERE IF ERROR 
oy # DEFINED BY DTASTS SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 
:GO TO 42$ IF ERROR 


;RECEIVED STATUS 
:EXPECTED STATUS 

:R4 = HEADER WORD NUMBER AND 
“ADJUST NUMBER. 


7R3 = BIT POSITION 


DETECTED 


sWAS FER DETECTED ?? 

Ce ea ae 

+ GO VERIFY RESULTS OF DATA TRANSFER 
ERROR 


; OR 

ERROR : Pan wie BY DTASTS SUBROUTINE 
3GO BACK FOR MORE ERROR CHECKS 

:GO TO 42$ IF ERROR 


sEXPECTED STATUS 
sRECEIVED STATUS 


WAS DETECTED 


sWAS BSE DETECTED ?? 
s¥ES !! 


SEQ 0127 


ee 


> ee 


1875 024676 
024702 


~ — ws 3 
$8888882 
NOUEWh 
SSSSss 

Vw VI 

BERS 

Ww 

© 


1909 062 
1910 025070 


C7RMOBO RMOS/3/2 FCTNL 
T14 WRITE, READ W/ 


004737 
000405 
000240 
104000 
004736 
000137 
013737 


005704 
001006 
012704 
012703 
000137 


000464 


000404 
000240 
104000 
000137 


012737 
012702 


TST 3 
HCE ERROR 


056572 


025004 


001400 
100000 


000350 


044710 


025004 — 


000002 
000001 


023346 


177776 
010000 
106436 
060062 
042174 


037316 


025062 


000063 
001553 


MACRO Vv04.00 


001414 


001412 


JSR 
BR 


NOP 
EMT 
JSR 
JMP 


MOV 
MOV 
EMT 
JMP 


38$: 


39$ 


40$: 


4i$: 
4c: 


PC ,DTASTS 
38$ 


PC ,a(SP)+ 
42% 


RMER21 , SBDDAT 
ABSE , $GDDAT 
345 


350 


;CHECK FOR OTHER ERRORS 


PC,SECERR 
40$ 


PC ,a(SP)+ 
42% 


46$ 


L 10 
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;GO VERIFY RESULTS OF DATA TRANSFER 
;GO TO 38$ IF NO ERROR 
;RETURN HERE IF ERROR 
sERROR # DEFINED BY DTASTS SUBROUTINE 


7GO BACK FOR MORE ERROR CHECKS 
:GO TO 42$ IF ERROR 


sRECEIVED STATUS 
sEXPECTED STAIUS 


:GO CHECK FOR SECONDARY ERRORS 
;GO TO 40$ IF NO a 


sRETURN HERE IF ERR 

sERROR # DEFINED BY OSECERR SUBROUT I NE 
;GO BACK FOR MORE ERROR CHECKS 

:GO TO 42$ IF ERROR 


;SHIFT TO NEXT BIT 
sREPEAT IF NOT DONE 


ete HEADER WORD DONE?? 


;SETUP FOR 2ND HEADER WORD 
;SETUP FOR HCE 


sEXIT IF ERROR 


5 LAER REE AEEEARAEEE AREER KREAEEKEKEKERAKEREKEEEREKKKEKEEKEKEEE 


> *REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER 


SF EERE AAA EEKEKEEREAEEKEKEEAEKEKEKERKEEEKEKEEKEAREEEAREEAAKEEKEERKK EK 


43$: 


ad 


#-2,RMWCO 
#FMT16,RMOFO 
#BU ,RMBAO 
A#WH .RMACS10 
PC, GENBUF 


PC, TSTPRP 
054130 


44$ 


44$ 


#WH!GO,RMCS10 
#PUTINX,R2 





:ONLY TWO HEAD WORDS 
sALWAYS IN 16 BITS MODE 


;BUFFER ADDRESS,REFORMAT THE SECTOR 


;WRITE HEAD AND DATA COMMAND 
7SET UP THE BUFFER 


;PREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 

:CLEAR CONTROLLER & SELECT DEVICE 

; VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF ‘'SKI'' OR ‘PIP’ IS SET 
; VERIFY RECALiBRATION 

:GO TO 44$ IF NO ERROR 

:RETURN HERE IF ERROR 

;ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 44$ IF ERROR 


;FORMAT THE SECTOR 
;SET UP THE REGS 


SEQ 0125 


ees ce ee ee = er oe ee nee ee -— 


[te 


rr rrr ee eee ttt settee ones 


el elololelolelole) 
MPMIMPININYNP 


358 
199 025204 
1930 025210 
1931 025214 
1932 
1938 


1934 025214 
025220 


025222 


MOBO meee FCTNL TST z 
WRITE, READ W/ HCE E 


01 
013701 
012737 


012704 
012703 


004737 
154130 


000006 
000032 
000034 
000004 
000002 
000000 
000200 
043330 


025156 
043672 


001100 


001276 


001466 
000015 


000000 
000001 


037316 


026562 


000000 
000000 
106436 
177376 
010000 


— 


001226 


001444 
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MOVB ARMDA, (R2)+ 


MOVB #200, (R2)+ 


JSR PC ,PUT ;GO WRITE REGISTER(S) WITH PUT SUBROUT INE 
BR ;GO TO 45$ IF NO ERROR 


45$ 
NOP “RETURN HERE IF ERROR 
EMI ;ERROR # DEFINED BY PUT SUBROUTINE 
JMP 46% “G0 TO 46% IF ERROR 
45$: NOP 
JSR PC, TIMOUT ;WAIT FOR FINISH 
NOP 
46$: 


Wee Pee RERERERERASAARARRARARRAAASERRARRSAAS SARS RS ASA SER AAS ALARA SSS SS | 


= TEST 15 WRITE, READ W/ HC] 


FF EERE AEE HARARE KA ERA KEKEERHKERKEEHEE EE 


TST15: 
SCOPE sSCOPE CALL 
NOP sSTART OF TEST 
MOV #STACK, SP s INITIALIZE ee POINTER 
MOV SBASE ,RO RO = UNIBUS ADDRESS 


MOV TSTQUE ,R1 yt = DEVICE BEING TESTED 
MOV #15, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 


ee lasiepeanwaneen 


:LOOP #1 FORMAT ,WRITE,READ 
1$: MOV #0 ,R4 ace Bt WORD 
MOV #1,R3 HCE BIT 
2$: 
:PREPARE THE DEVICE FOR FORMAT OPERATION 
JSR PC, at s;PREPARE DEVICE FOR TEST 
-WORD 154130 > TASK DESCRIPTOR AS FOLLOWS: 
“SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR ONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
*PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
*RECALIBRATE IF ‘'SKI'' OR 'PIP"' IS SET 
= VERIFY RECALIBRATION 
BR . -3§ :GO TO 3$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 41$ :GO TO. 41$ IF ERROR 


ag PARAMETERS AND GENERATE DATA BUFFER 


MOV #0,RMDCO CYLINDER = 0 
MOV #0 ,RMDAO TRACK = art SECTOR = 0 
MOV #BUF ONE , Ph “BUS A RESS 

MOV #-258. ,RMWCO :2 + O86. WORDS (2° COMP) 
MOV HEMT 16 RMOFO 316 BIT FORMAT 


SEQ 0129 


ER 
LE TS NN Ne 





r—- 


1943 025272 


‘0 0 
VI 
wOoOn 


SFERES 


SRR 


SN 
-—OoOc 
© 

Nm 

Vi 

™ 

MN 

© 


025442 
7 


025460 
1980 025464 
1981 


1982 
1983 025464 
025470 


iA. ta 


MOBO RMOS/3/2 FCTNL 
WRITE, R2AD W/ 


012737 


012737 
004737 


040242 
070426 
026410 
072016 
000001 
042174 
106436 


106436 
106436 


001553 
000034 


043330 


026410 


042774 


043672 


043060 


026410 


056572 


-—— —_— —---—- 


-—-—— -——_- -- — a 
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001412 


001174 
001176 


;WRITE HEADER AND DATA COMMAND 


;CALL BAD SECTOR MODULE 
:GO TO 4$ IF NO ERROR 

; TYPE BAD SECTOR MESSAGE 

;ERROR # DEFINED BY BADSCT SUBROUTINE 
:GO TO 37$ IF ERROR 


; STARTING ADDRESS OF PATTERN 
;RANGE OF PATTERN 
;GO GENERATE BUFFER FOR FORMAT 


;SET OR RESET BIT?? 


sRESET BIT 
:SET BIT 


a PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 


;R2 = BYTE ENTRY POSITION 


; TERMINATE TABLE 


;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 8$ IF NO ERROR 
:RETURN HERE IF ERROR 


:ERROR # DEFINED BY PUT SUBROUTINE 


MOV #WH!GO,RMCS10 
: VERIFY THAT SECTOR IS NOT BAD 
JSR + ~BADSCT 
TYPE ~5SCTMSG 
EMT 
JMP 37$ 
4$: 
MOY . #ONES, ps 
MOV #1, $TMP1 
JSR PC, GENBUF 
: CHANGE HEADER WORD TO FORCE ERROR DURING WRITE 
BIT R3,BUF ONE (R4) 
BEQ 
BIC 23 ,,BUF ONE (R4) 
BR 6 
5$: BIS R3,BUF ONE (R4) 
MOV. #PUTINX,R2 
MOVB #RMDC, (R2) + 
MOVB #RMDA, (R2) + 
MOVB ~(R2)+ 
MOVB ARMWC , (R2) + 
MOVB  _.. ARMOF , (R2)+ 
MOVB ARMS), (R2)+ 
MOVB #200, (R2) | 
7$: 
:FORMAT THE DRIVE 
JSR ‘ 
BR 
NOP 
EMT 
JMP 37% 


8$: 


:GO TO 37$ IF ERROR 


; SETUP cer INDEX TABLE TO READ ALL REGISTERS 


sWAIT FOR COMMAND TO COMPLETE 
JSR TIMOUT 


9o$: 


; VERIFY NO ERRORS DURING FORMAT 
JSR TASTS 


BR 


PC.GETSTS 


PCs 


37$ 


v 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE . 
;G0 READ STATUS FOR FORMAT OPERATION 
SR PC,GET 


+ GO READ REGISTER(S) WITH GET SUBROUTINE 
;GO TO 9$ IF NO ERROR 

sRETURN HERE IF ERROR 

;ERROR # DEFINED BY GET SUBROUTINE 


:GO TO 37$ IF ERROR 


:GO VERIFY RESULTS OF DATA ieneer en 
:GO TO 10$ IF NO ERROR 


SEQ 0150 


LL 
rr eRe 
eee ee 


B11 
| | taaaaae i FCTNL TST 3 MACRO v04.00 4-APR-81 01:15:59 PAGE 135-60 


READ W/ HC] SEQ 0131 
025472 000240 NOP _ RETURN HERE IF ERROR 
625474 104000 EMT * ERROR ‘ DEFINED BY DTASTS SUBROUT INE 
025476 004736 JSR PC a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
025500 000137 026410 JMP 37$ --3G0 TO 37$ IF ERROR 
ise 025504 10$: 
1986 -MOVE LOOP ADDRESSES TO NEXT OPERATION 
1987 025504 012737 025514 001124 ~ MOV #11$.$LPERR 
1988 025512 000410 BR 12$ :SKIP TO WRITE OPERATION 
1990 5 FREER AERA AREAAAERARERAAARAERAARAKEAARRAAARAARRARRAAEREREH 
1991 =LOOP #2 WRITE READ 
1992 | 
1993 025514 11$: 
1994 
1995 : :PREPARE DEVICE FOR WRITE OPERATION 
1996 025514 004737 037316 JSR PC TSTPR :PREPARE DEVICE FOR TEST 
025520 154130 | WORD 154130 -TASK DESCRIPTOR AS FOLLOWS: 
| “SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
=VERIFY CONTROLLER CLEAR OPERATION 
“PACK AC EDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘SKI’ OR “PIP’’ IS SET 
: =VERIFY RECALIBRATION 
025522 000404 BR 12% -GO TO 12$ IF NO ERROR 
025524 000240 NOP “RETURN HERE IF ERROR 
025526 104000 : EMT “ERROR # DEFINED BY TSTPRP SUBROUTINE 
025530 000137 026410 JMP 37$ :GO 10 37$ IF ERROR 
1997 025534 12$: fixie 
1999 :WRITE DATA TO THE DRIVE 
2000 025534 13$: 
2001 025534 012737 012000 001444 MOV #FMT16'HCI.RMOFO : INHIBIT HEADER COMPARE 
2002 029342 012737 000061 001412 MOV #WD'!GO.RMCS10 “WRITE DATA COMMAND 
2003 025550 012737 106442 001416 MOV #BUF ONE +4 , RMBAO =LOAD STARTING BUFFER ADDRESS 
2004 025556 012702 001553 MOV #PUTINX,R2 =LOAD PUT REGISTER INDEX TABLE 
2005 025562 112722 000006 MOVB ARMDA, (R2)+ ; 7 
2006 025566 112722 000034 MOVB #RMDC , (R2) + 
2007 Os2e5e 112722 000032 MOVB #RMOF , (R2)+ 
2008 025576 112722 000004 MOVB #RMBA, (R2) + 
2009 Bs 260e 112722 000002 MOVB MRMWC, (R2)+ 
2010 025606 112722 000000  MOVB #RMCS1, (R2)+ 
201) 025612 112722 000200 MOVB #200, (R2)+ - s TERMINATE TABLE 
2013 025616 004737 043330 JSR PC PUT =GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
025622 000404 BR «-—ti‘éz““S -GO TO 14% IF NO ERROR 
025624 000240 NOP “RETURN HERE IF ERROR 
025626 104000 EMT “ERROR # DEFINED BY PUT SUBROUT INE 
025630 000137 026410 JMP 37% -GO TO 37$ IF ERROR 
Spie 025634 14$: 
2016 :SETUP GET INDEX TABLE TO READ ALL REGISTERS 
ates 025634 004737 042774 JSR PC,GETSTS -G0 TO GETSTS SUBROUTINE 
2018 -WAIT FOR COMMAND TO COMPLETE 


025640 004737 0435672 JSR PC, TIMOUT :GO- TO TIMOUT SUBROUTINE 





TT eS me 


ee 


LE RE EE oe: oon ee 
ee re nt ee 

_ 
' 
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T15 WRITE, READ W/ HCI SEQ 0132 


2019 


5050 026026 
308. 026034 


2054 
2056 026036 


600410 


| 2020 :GO READ STATUS FOR WRITE COMMAND 
| 2021 025644 004737 043060 JSR PC,GET =GO READ REGISTER(S) WITH GET SUBROUTINE 
| 025650 000404 BR 15$ :GO TO 15$ IF NO ERROR 
| 025652 000240 NOP “RETURN HERE IF ERROR 
| 025654 104000 EMT “ERROR # DEFINED BY GET SUBROUTINE 
| 025656 000137 026410 JMP 37$ *GO TO 37$ IF ERROR 
| 2022 025662 15$: 
2024 -CHECK FOR ERRORS DURING WRITE OPERATION 
2025 025662 004737 044056 JSR PC PRIERR :60 CHECK FOR PRIMARY ERRORS 
025666 000405 0 TO 16$ IF NO ERROR 
025670 000240 NOP ‘RE TURN HERE IF ERROR 
025672 104000 EMT “ERROR s DEF INED BY PRIERR SUBROUTINE 
025674 004736 JSR PC, a(SP)+ -GO BACK FOR MORE ERROR CHECKS 
025676 000137 026410 JMP 37$ -GO TO 37$ IF ERR 
2026 025702 005037 001140 16$: CLR $GDDAT sEXPECTED STATUS 
2028 025706 032737 000220 001352 BIT #HCE !FER.RMERT1! : ANY ERROR?: 
2029 625714 001407 | BEQ. 17$ 
2030 025716 013737 001352 001142 MOV RMER11,$BDD :RECEIVED STATUS 
2031 025724 042737 177557 001142 BIC PC CHCE FER. T eBDDAT “CLEAR DONT CARES 
2032 025732 000412 BR 18$ 
2033 025734 : 17$: | 
| 2034 025 013737 001400 001142 MOV RMER21,$8DDAT :RECEIVED STATUS 
2035 025742 032737 100000 001400 BIT #BSE ,.RMERZ1 “ANY BAD SECTOR ERROR ? 
2036 025750 001406 BEQ 19$ “NO !! 
2037 025752 042737 077777 001142 oe BIC #*CBSE , SBDDAT “SAVE BSE FOR ERROR 
2039 025760 104346 EMT 346 
2040 025762 000137 026410 JMP 37$ 
204. 025766 19$: 
2043 025766 | 20S: 
2044 025766 004737 056572 JSR. -—s PC. .DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
025772 000405 BR 21$ :GO TO 21$ IF NO ERROR 
025774 000240 NOP “RETURN HERE IF ERROR 
025776 104000 EMT “ERROR # DEFINED BY DTASTS SUBROUTINE 
026000 004736 : JSR PC a(SP)+ -GO BACK FOR MORE ERROR CHECKS 
ii 926002 000137 026410 Bes JMP 37$ G0 TO 37$ IF ERROR 
2046 026006 004737 044710 JSR PC, SECERR :60 CHECK FOR SECONDARY ERRORS 
026012 000405 BR 22$ GO TO 22% IF NO ERROR 
026014 0C0240 NOP “RETURN HERE IF ERROR 
026016 104000 EMT > ERROR s DEF INED BY SECERR SUBROUTINE 
026020 004736 JSR PC a(SP)+ =GO BACK FOR MORE ERROR CHECKS 
026022 000137 026410 JMP 37$ “GO TO 37$ IF ERROR 
otf 026026 22%: 
: CHANGE LOOP ADDRESSES 
012737 026036 001124 MOV 


ote"? , SLPERR 


DRARARRBEBRBOBSASBRASAZEASZALEALALSASALRERS SERRA SSR RRS RRR RR RRR RA RRARR RASS SDS 


“LOOP #3 READ 
233: 


= — eee oe LL TS a LT 


CZRMOBO RMOS/3/2_FCTNL 
115 WRITE, READ w/ 


2057 

2058 

2059 026036 
026042 


© 
Nm N 
Oo 
R 
LS 


2075 eles 


0 
2084 026176 


2087 ose lts 


026206 
026210 


004737 
154150 


TST 3 
HC] 


037316 


026410 


000071 


043350 


026410 


042774 


043672 


043060 


026410 


044056 
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;PREPARE DEVICE FOR READ OPERATION 
JSR PC, TSTPRP 


BR 

NOP 

EMT 

JMP 
243: 


:READ DATA FROM 
c5$: 


26$: 


54130 


24% 
37% 
DEVICE 


#RD!GO,RMCS10 
#BUF TWO+4 , RMBAO 


#200, (R2) 
PC,PUT 
26$ 


37% 


sPREPARE DEVICE FOR TEST 
; TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 

K ACKNOWLEDGE IF VOLUME NOT VALID 
‘VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF 5 mh “PIP IS SET 
; VERIFY RECALIBRATION 
:GO TO 24$ IF NO ERROR 
;RETURN HERE IF ERROR 
;ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 37$ IF ERROR 


;READ DATA COMMAND 
;LOAD STARTING BUFFER ADDRESS 
;LOAD PUT REGISTER INDEX TABLE 


7GO WRITE ggg hh WITH PUT SUBROUTINE 
:GO TO 26$ IF NO ERROR 
:RETURN HERE IF ERROR 


[ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 37$ IF ERROR 


; SETUP ae INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS 


WAIT Bae vets TO COMPLETE 


PC, TIMOUT 


37$ 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR READ OPERATION 
JSR PC,GET 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 27$ IF NO aan * 
:RETURN HERE IF ERRO 


:ERROR # DEFINED BY GET SUBROUT INE 
:GO TO 37$ IF ERROR 


;CHECK FOR ERRORS gto READ OPERATION 
SR PC,PRIERR 





PC,a@(SP)+ 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 28$ IF NO ERROR 
sRETURN HERE IF ERROR 


:ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 


SEQ 01355 


> re es ee 
LOL LE EOL, NT Rm 
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T15 WRITE, READ W/ H SEQ 0134 


ee 
—_ oe 


026212 000137 026410 JMP 37$ 3GO TO 37$ IF ERROR 

Spee 026216 005037 0601140 283: CLR SGDDAT sEXPECTED STATUS 

2 026222 032737 000229 001352 BIT MHCE!'FER,RMER11 ; ANY ERROR ? 

1 0262 001407 BEQ 29$ NO! 

2092 026232 013737 001352 001142 MOV RMER11,$BDDAT ‘RECEIVED STATUS 

2093 026240 042737 177557 001142 BIC #“~C<HCE!FER>, SBDDAT ;CLEAR DONT CARES 
026 000412 BR 30$ 

2095 026250 293: 

2096 026250 013737 001400 001142 MOV RMER2ZI1,$BDDAT sRECEIVED STATUS 
02625 032737 100000 001400 BIT #BSE ,RMER2Z1 ;ANY BAD SECTOR ERROR ? 

2098 026264 001406 BEQ 31$ zNO !! 

2 0262 042737 077777 001142 BIC #“CBSE , $BDDAT ;CLEAR DONT CARES 

2100 026274 30S: 

2101 026274 104346 EMT 346 

2102 026276 000137 026410 JMP 37$ 

2103 026302 7 31$: 

2104 

2105 026302 32$: 

2106 C26302 004737 056572 JSR PC ,DTASTS + GO VERIFY RESULTS OF DATA TRANSFER 
026306 000405 BR 33$ GO TO 33$ IF NO ERROR 
026310 000240 NOP ” RETURN HERE IF ERROR 
026312 104000 EMT ZERROR # DEFINED BY DTASTS SUBROUTINE 
026314 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
02631 000137 026410 JMP 37$ :GO TO 37% IF ERROR 

2107 026322 33$: 

2108 026322 004737 044710 JSR PC,SECERR 3;GO CHECK FOR SECONDARY ERRORS 
026326 000405 BR 34$ G0 TO 34% IF NO ERROR 
026330 000240 NOP ZRETURN HERE IF ERROR 
026332 104 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
026334 004736 JSR PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 

31 ps0e7s 000137 026410 £68 JMP 37% GO TO 37$ IF ERROR 

2110 026342 004737 042432 JSR PC, CMPBUF :GO COMPARE WRITE, READ DATA BUFFERS 
026346 106442 -WORD BUFONE+4 ey ARTING ADDRESS OF WRITE BUFFER 
026350 107446 . WORD BUF TWO+4 of ha ADDRESS OF READ BUFFER 
026352 0004 BR 35$ :GO TO 363 IF NO ERROR 
026354 000240 NOP , RETURN HERE IF ERROR 
026356 104 EMT sERROR # DEFINED BY CMPBUF SUBROUTINE 
026360 000137 026410 7 JMP 37$ : :GO TO 37% IF ERROR 

2111 026364 35$: 

2112 026364 006303 ASL R3 :SHIFT HCE BIT 

2113 026366 001006 BNE 36% ; CONTINUE IF NOT DONE 

2114 026370 005704 TST R4 ; SECOND HEADER DONE?? 

2115 026372 001006 BNE 37$ YES! 

2116 026374 012703 000001 MOV #1,R3 Aste WITH BIT 0 

2117 026400 012704 000002 MOV #2 ,R4 DO SECOND HEADER WORD 

2118 026404 | 36$: 

2119 026404 000137 025214 JMP 2$ 

2120 026410 37$: 

2121 026410 000464 41$ :EXIT IF ERROR 

2122 DOI IOIIOIIOIIDIOIIIIDIIIIIUISIIOIDIUIUIOIUIUIOIUIDIDIUIOOINIDIOIIODIUIDIUIUIDI ISI I tt 

2123 *REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER 

2124 POO RIO IUIOITIOIIOIOIIUIUIIIUIOOUU ICU iit iit ttt ris 

2125 026472 8$: 

2126 026412 012737 177776 001414 MOV #-2 ,RMWCO ;WORD COUNT 

2127 026420 012737 MOV #FMT16,RMOFO : IN 16 BIT MODE 


070000 001444 


me ee te + e+e se 


15 


2128 asoree 

2129 0264 

2130 ane 

2131 

2132 926446 
026452 


PUM nanTUR MOP RPD 
a ee ee ee ee ee rr) 
SUVvVyuywerys 
OO VNOuks who 

oO 

$ 

~—s 

La ] 


€Z7RMOBO RMOS/3/2 FCTNL 
WRITE, READ W/ H 


012737 


004 737 
054130 


7 3 
CJ 


1064 36 
G00062 
042174 


037316 


026466 


000063 
001553 
000006 


00 
043330 


026562 
043672 


001100 


000016 


000000 
000000 
1064 36 
177400 
010000 
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001416 
001412 


001412 


001226 


001446 


001444 


40$: NOP 


41$: 


TST16: 


SCOPE 
N 


MOV 
MOV 


re re a a ee 


#BUF ONE , RMBAO 
4WH ,RMCS10 
PC ,GENBUF 


PC, TSTPRP 
054130 


39% 


39$ 


#WH!GO,RMCS10 
APUTINX,R2 


#200, (R2)+ 
PC -PUT 
408 


41$ 
PC, TIMOUT 


;BUFFER ADDRESS 
;FORMAT COMMAND 
:SET UP BUFFER 


sPREPARE DEVICE FOR TEST 
;TASK DESCRIPTOR AS FOLLOWS: 
:CLEAR CONTROLLER & SELECT DEVICE 


:VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
7 VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘'SKI"’ OR ‘PIP’ IS SET 
: VERIFY _RECALIBRATION 

:GO TO 39% IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 39$ IF ERROR 


; TABLE ADDRESS 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
;GO TO 40$ IF NO ERROR 
:RETURN HERE IF ERROR 


sERROR # DEFINED BY PUT SUBROUTINE 
;GO TO 41$ IF ERROR 


Wht eee eee AeRaSaSSeSARARRAA SASS ASSAA SAAS SRE SSR SARA RS RAR RAS SRR R AS SE OG 


[TEST 16 


WRITE, READ W/ IVC ERROR 


ASTACK,SP 
$BASE ,RO 
TSTQUE ,R1 
#16,$TESIN 


WRITE ,READ 


#0 ,RMDCO 
#0 ,RMDAO 
#BUF ONE , RMBAO 
#-256. ,RMWCO 
#FMT16,RMOFO 


SL REAR EREREKEEKKRAE EKER 


sSCOPE CALL 


sSTART OF TEST 

: INITIALIZE STACK POINTER 
:RO = UNIBUS ADDRESS 

;(R1) = DEVICE BEING TESTED 


::SET TEST NUMBER IN APT MAIL BOX 


Wet eeeePSeSSGASASASALEASARLSASAASLASESSASARE SARA RA RAR RA RRARRRRR SSSR SASS S SS | 


“LOOP #1 
{LOAD PARAMETERS AND GENERATE DATA BUFFER 


‘CYLINDER = 0 

TRACK = 0, SECTOR = 0 
“BUS ADDRESS 

3256. WORDS (2°S COMP) 
:16 BIT FORMAT 


SEQ 0155 


- —< a SE EN SS --n 
nee re ee | a 


CZ7RMOBO RMO5/3/2 FCTNL 
WRITE, READ W/ 


116 
2161 
Pr 


ueeetiieaeetieanetieeeess cue nene 


Mone morumorunnsnononsnronohvrurng 
et eed eel eee el eh ee eel ee ed ed ee et ed ed ed 


LSSRLEARANSS SBI 
© © 


026646 


026714 
026720 


026722 


026734 


026734 


026774 


026774 


027044 
027050 


0 
027062 


027054 
27060 


012737 


004737 
000405 
104401 
104000 
000137 
012737 
012737 
004737 


004737 
154130 


000404 


TST 3 
IvC ERROR 


000060 


040242 
070426 
027602 
001420 


000001 
042174 


037316 


027602 


000024 
000200 
000001 
043330 


027602 


000061 
00 


043330 
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001472 


001174 
001176 


001553 
001554 
001436 


001412 
001436 


MOV #WD,RMCS10 
7; VERIFY boy SECTOR IS NOT BAD 


;WRITE HEADER AND DATA COMMAND 


PC ,BADSCT ;CALL BAD SECTOR MODULE 
BR . 2$ :GO TO 2$ IF NO ERROR 
TYPE SCTMSG : TYPE BAD SECTOR MESSAGE 
EMT sERROR # DEFINED BY BADSCT SUBROUTINE 


JMP 22$ 


MOV #ARMDAO, $TMPO ;USE SECTOR FOR CATA PATTERN 
MOV #1,$1TMP1 


JSR PC * GENBUF :GO GENERATE DATA BUFFER 


;PREPARE DEVICE FOR gi hts OPERATION 

JSR PC,TSTPR s;PREPARE DEVICE FOR TEST 

-WORD 154130 7 TASK DESCRIPTOR AS FOLLOWS: 

:SELECT DEVICE & VERIFY DEVICE AVAILABLE 

;CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘'SKI'' OR ‘PIP’’ IS SET 
ag AE RECAL IBRAT ION 


;GO TO 22$ IF ERROR 


BR 3$ O 3$ IF NO ERROR 

NOP ‘RETURN HERE IF ERROR 

EMT ;ERROR # DEFINED BY TSTPRP SUBROUT INE 
- JMP 22$ : :GO TO 22$ IF ERROR 
;RESET VOLUME VALID 

MOVB ARMMR1,PUTINX ;SETUP PUT INDEX TABLE 

MOVB #200,PUTINX+1 ;SET TERMINATOR BYTE 

MOV #DMD ,RMMR10 :SET RMMR1 OUTPUT BUFFER = DMD 

JSR PC,PUT ;GO WRITE RMMR1 VIA PUT SUBROUTINE 

BR 4$ ;GO TO 4$ IF NO ERROR 

NOP :RETURN HERE IF ERROR 

EMT ;ERROR DEFINED BY PUT SUBROUTINE 
i JMP 22$ ;GO TO 22$ IF ERROR 


Sl PARAMETERS AND EXCUTE WRITE DATA COMMAND 


MOV AWD !GO,RMCS10 :WRITE DATA COMMAND 
#O,RMMR1O— sRESET DIAGNOSTIC MODE 
;LOAD PUT REGISTER INDEX TABLE 


MOVB #RMCS1, (R2)+ 


MOVB #200, (R2)+ : TERMINATE TABLE 


JSR PC,PUT ;GO WRITE os bate WITH PUT SUBROUTINE 
BR 6$ :GO TO 6$ IF NO ERROR 
NOP =RETURN HERE IF ERROR 


ELT: SSS senses lessees 
nr nr a a ae ee ee 





WRITE, 
027064 
027066 
027072 
027072 


027076 


mrnM MM MMP 


027102 
0 


0 
2204 027140 
2205 027140 
2206 027146 
2207 
2208 027150 
027154 


027234 
2217 027240 
2218 


2219 
2220 027240 
Al 027246 


— os hall FCTNL 
’ READ W/ 


104000 
000137 


004737 
004757 


004737 
04 
000137 


004737 


032737 
001024 


004737 
000405 
000240 
104000 
004736 
000137 


013737 


TST 3 
IVC ERROR 


27602 


042776 
043672 


043060 
027602 


044056 


027602 
010000 


056572 


027602 
001400 
001400 
010000 
027602 
044710 


027602 


027250 


001400 


001142 
001140 
601140 


001124 
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EMT sERROR # DEFINED BY PUT SUBROUTINE 
JMP 22$ -GO TO 22$ IF ERROR 
6$: 
= SETUP GET INDEX TABLE TO READ ALL REGISTERS 
PC,GETSTS =GO TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR WRITE COMMAND 
JSR PC,GET : G0 READ REGISTER(S) WITH GET SUBROUTINE 
BR 7$ 0 TO 7$ IF NO ERROR 
NOP SOE TURN HERE IF ERROR 
EMT “ERROR # DEFINED BY GET SUBROUTINE 
‘d JMP 22$ “GO TO 22$ IF ERROR 
:CHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC .PRIERR :GO CHECK FOR PRIMARY ERRORS 
BR 8$ -GO TO 8$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ "GO BACK FOR MORE ERROR CHECKS 
is JMP 22$ *GO TO 22$ IF ERROR 
BIT #IVC,RMERZI sWAS "‘IVC’’ DETECTED?? 
BNE 10$ YES!! 
JSR PC .DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 9$ -GO TO 9$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEF INED BY DTASTS SUBROUTINE 
JSR PC a(SP)+ >GO BACK FOR MORE ERROR CHECKS 
* JMP 22$ *GO TO 525 IF ERROR 
MOV RMERZ1, $BDDAT :RECEIVED STATUS 
MOV RMER21 . $GDDAT “EXPECTED STATUS 
BIS #IVC,$GDDAT 
EMT 342 
a JMP 22$ 
JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 11$ *GO TO 11% IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC a(SP)+ “GO BACK FOR MORE ERROR CHECKS 
JMP 22$ =GO TO 22% IF ERROR 
11$: , 
= CHANGE LOOP ADDRESSES 
MOV #12$,SLPERR 
BR 13§ 
TOP RRASAAAAASBABABAAABALASBEAASEAEALEALASCASAEBERAARARARBARERARARRAASAARASASA AAS: 
“LOOP #2 READ 


= nr ee 


_— RMOS/3/2 FCTNL 


WRITE, READ W/ 


2226 027250 
cee? 


2228 
2229 027250 
027254 


027256 


02 
2234 0273350 
2235 


2236 
2237 027330 
2244 027366 


2250 
2251 ys ogk 


027430 

2252 027434 
2253 
254 

; 027434 
2256 


027440 
2257 


006737 
154130 


004737 


004737 


TST 
IVC ERROR 


3 


037316 


027602 


000024 


043330 


027602 


000071 


000000 
000200 
043330 


027602 


042774 


043672 
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001553 
001554 
001436 


001412 
001416 
001436 


12$: 


f 
;PREPARE DEVICE FOR Hid Orne! 0m 
JSR Pe TSP 


. WORD 154130 


BR 13$ 
NOP 
EMT 
JMP 22$ 
13$: 
sRESET VOLUME VALID 
MOVB #RMMR 1, PUT INX 
MOVB #200, PUT INX+1 
MOV #DMD .RMMR10 
JSR PC,PUT 
BR 14$ 
NOP 
EMT 
JMP 22$ 
14$: 


a DATA FROM DEVICE 
"MOV #RD!GO,RMCS10 


sPREPARE DEVICE FOR TEST 
; TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
: VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE if VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘'SKI'’ OR ‘PIP'’ IS SET 
a RECAL IBRAT ION 

O TO 13$ IF NO ERROR 
“ RETURN HERE IF ER 


ROR 
:ERROR # DEFINED BY TSTPRP SUBROUTINE 
;GO TO 22$ IF ERROR 


;SETUP PUT INDEX TABLE 

;SET TERMINATOR BYTE 

;SET RMMR1 OUTPUT BUFFER = DMD 

;GO WRITE RMMR1 VIA PUT SUBROUTINE 
;GO TO 14$ IF NO ERROR 

sRETURN HERE IF ERROR 

;ERROR DEFINED BY PUT SUBROUTINE 
;GO TO 22$ IF ERROR 


:READ DATA COMMAND 

;LOAD STARTING BUFFER ADDRESS 
sRESET DIANOSTIC MODE 

;LOAD PUT REGISTER INDEX TABLE 


7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 16$ IF NO ERROR 


sRETURN HERE IF ERROR 
sERROR # DEFINED BY PUT SUBROUT INE 
:GO TO 22$ IF ERROR 


;GO TO CETSTS SUBROUT I NE 


MOV #0, 
MOV #PUTINX,R2 
MOVB #RMMR1, (RZ) + 
MOVB #RMDA, (R2) + 
MOVB #RMOF , (R2)+ 
MOVB ARMDC , (R2)+ 
MOVB ARMBA , (R2) + 
MOVB ARMWC, (RZ) + 
MOVB ARMCS1, (R2)+ 
MOVB #200, (R2) 
JSR PC ,PUT 
BR 16$ 
NOP 
EMT 
| JMP 223 
16$: 
;SETUP GET INDEX Ets TO READ ALL REGISTERS 
JSR PC,GETSTS 
; WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 


:GO TO TIMOUT SUBROUTINE 


SEQ 0145 


—————_— 


CZ7RMOBO RMO5/3/2 FCTNL 
WRITE, READ W/ 


16 


027462 


027462 
0 


027510 
C27512 


027602 
027602 


027602 


027602 
027604 


027622 


032737 
001024 


004737 
0004 


0001 37 


TST 3 
IvC ERROR 


043060 
027602 


044056 


027602 
010000 


056572 


027602 
001400 
010000 
001400 
027602 


044710 


027602 


001100 
001276 


001466 
000017 001226 
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* 


001400 


001140 
001140 
001142 


:GO READ STATUS FOR READ OPERATION 
JSR PC GET ‘60 READ _REGISTER(S) WITH GET SUBROUTINE 


TO 17$ IF NO ERROR 


:RETURN HERE IF ERROR 
sERROR # DEFINED BY GET SUBROUTINE 
:GO TO 22$ IF ERROR 


‘ee CHECK FOR PRIMARY ERRORS 
O TO 18$ IF NO ERROR 
‘RETURN HERE IF ER 


ROR 
:ERROR # DEFINED BY PRIERR SUBROUTINE 
;GO BACK FOR MORE 
;GO TO 22$ IF ERROR 


ERROR CHECKS 
WAS ‘'IVC’* DETECTED?? 
iTta-2 


:GO VERIFY RESULTS OF DATA TRANSFER 
;GO TO 19$ IF NO ERROR 
:RETURN HERE IF ERROR 


:ERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 22% IF ERROR 


:EXPECTED STATUS 
:RECEIVED STATUS 


:GO CHECK FOR SECONDARY ERRORS 

:GO TO 21$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 22$ IF ERROR 


& 


REECE KEAKCAEKEKEEEREEKEEEEKEKKEREREREKEEKEEKKENEEKREEREKEEHKEEKE 


IOI III OIE IIOIUUIII IOI on rit tint 


$SBASE ,RO 
MOV TSTQUE ,R1 
MOV #17, $TESTN 


:SCOPE CALL 

:START OF TEST 

s INITIALIZE STACK POINTER 
:RO = UNIBUS ADDRESS 

;(R1) = DEVICE BEING TESTED 


BR 
NOP 
EMT 
22$ 
17$: 
>: CHECK FOR ERRORS ne READ OPERATION 
JSR PC,PRIERR 
BR 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 22 
183: 
BIT A#IVC,RMER2Z1 
BNE 20$ 
JSR PC,DTASTS 
BR 19$ 
NOP 
EMT 
JSR PC,a@(SP)+ 
JMP 22$ 
19$: 
MOV RMER21,$GDDAT 
BIS #IVC,$GDDAT 
MOV RMER21,$BDDAT 
EMT 342 
: JMP 223 
20$: 
JSR PC,SECERR 
BR 21$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP - -22$ 
218: 
22$: 
:STEST 17 WRITE, READ W/ ABORT 
TST17: 
SCOPE 
NOP 
MOV ASTACK,SP 
MOV 


:;SET TEST NUMBER IN APT MAIL BOX 


5 EERE REE ERE EEE EERE EERE ERE EKER EERE AERA REE EERE 


“LOOP #1 WRITE ,READ 


;LOAD PARAMETERS AND GENERATE DATA BUFFER 


SEQ 0139 


a 


ceeemeetiesteeeti ee 


- _ 
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- CZRMOBO RMOS/3/2 FCINL TST 3 
117s WRITE, READ W/ ABORT SEQ 0140 
2287 027630 012737 000000 001446 Mov #0, RMDCO ;CYLINDER = 0 
2288 027636 012737 06 001420 MOV —«s- #0. RMDAO ‘TRACK = 0, SECTOR = 0 
2289 027644 012737 106436 001416 MOV ——-« #BUFONE , RMBAO “BUS ADDRESS 
2290 027652 012737 177400 001414 MOV  #=256.,RMW 1256. WORDS, (2"S COMP) 
2291 027660 012737 010000 001444 MOV = #FMT 16. RMOFO :16 BIT FORMAT 
2292 027666 012737 000061 001412 MOV  #WD!GO.RMCS10 :WRITE DATA COMMAND 
2295 027674 1$: 
2295 ;PREPARE DEVICE FOR WRITE OPERATION 
2296 027674 004737 037316 JSR _-~PC, TSTPR ;PREPARE DEVICE FOR TEST 
027700 154130 WORD 154130 TASK DESCRIPTOR AS FOLLOWS: 
“SELECT DEVICE & VERIFY DEVICE AVAILABLE 
“CLEAR CONTROLLER & SELECT DEVICE 
“VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
“RECALIBRATE IF ''SKI'’ OR ‘PIP’’ IS SET 
:VERIFY RECALIBRATION 
027702 000404 BR 2$ :GO TO 2$ IF NO ERROR 
627704 000240 NOP “RETURN HERE IF ERROR 
027706 104000 EMT {ERROR # DEFINED BY TSTPRP SUBROUTINE 
027710 000137 030520 IMP 21 GO TO 21$ IF ERROR 
2297 027714 2$: 
2298 
2299 :SET UNSAFE ERROR 
2300 027714 112737 000014 001553 MOVB  #RMER1,PUTINX  ;SETUP PUT INDEX TABLE 
027722 112737 000200 001554 MOVB  #200,PUTINX+1 SET TERMINATOR BYTE 
027730 012737 040000 001426 MOV —s #UNS.. RMER10 “SET RMER1 OUTPUT BUFFER = UNS 
027736 004737 043330 JSR —- PC, PUT >GO WRITE RMER] VIA PUT SUBROUTINE 
027742 000404 BR 3$ :GO TO 3$ IF NO ERROR 
027744 000240 NOP “RETURN HERE IF ERROR 
027746 104000 EMT “ERROR DEFINED BY PUT SUBROUTINE 
027750 000137 030520 IMP 218 :G0 TO 21% IF ERROR 
2301 027754 3$: 
2302 
2303 :;WRITE DATA TO THE DRIVE 
2304 027754 : L$: 
2305 027754 012737 000061 001412 MOV —- #WD GO, RMCS10 ;WRITE DATA COMMAND 
2306 027762 012702 001553 MOV APUTIN NX ,R2 ;LOAD PUT REGISTER INDEX TABLE 
2307 027766 112722 000006 MOVB — #RMDA, (R2)+ 
2308 027772 112722 0000 MOVB  #RMDC.(R2)+ 
2309 027776 112722 32 MOVB  #RMOF.(R2)+ 
2310 030002 112722 0000 MOVB #RMBA.(R2)+ 
2311 030006 112722 000002 MOVB ARMWC. (R2)+ 
2312 030012 112722 000000 MOVB #RMCS1, (R2)+ 
2313 030016 112722 0002 MOVB #200, (R2)+ ; TERMINATE TABLE 
2315 030022 004737 043330 JSR —-PC,, PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
30026 000404 BR 5$ :GO TO 5$ IF NO ERROR 
030030 000240 NOP “RETURN HERE IF ERROR 
030032 104000 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
030034 000137 030520 IMP 21 "GO TO 218 IF ERROR 
2316 050040 58: 
2318 : /SETUP GET INDEX TABLE 10 READ ALL REGISTERS 
030040 004737 042774 PC,GETSTS :GO TO GETSTS SUBROUTINE 


SO ES SS SE 


coc 


11? 


2 06 

2328 030114 

2529 050116 
530 


Fr 
2331 
030116 


2334 030122 


ww 
WN 


RESEEE 


030210 


ESSE 
I OODNAURWU=OS 
° 


MMMM NNN NNPerunys 


WW 
wiv 


% 


_ CZ7RMOBO RMOS/3/2 FCTNL 
WRITE, READ W/ ABOR 


004737 
04 


004737 


004737 


000137 
004737 
05 


012737 
000410 


004737 
154130 


TST 3 


043672 


043060 


030520 
044056 


030520 
044710 


030520 


030210 


037316 
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001350 


001140 
01140 
001142 


So 


001124 


;GO GET REGISTER STATUS 
R PC,GET 


6$: 


7$: 


;WAIT FOR COMMAND ee COMPLETE 
JSR TIMOUT 


21$ 
APIP,RMDSI 
7$ 
RMDSI , $GDDAT 


#PIP,$GDDAT 
RMDS1,$BDDAT 
347 


PC. 


:GO GET REGISTER STATUS 
SR PC,GET 


8$: 


9$: 


10$: 


21$ 
PC,PRIERR 
9$ 


PC,a(SP)+ 
21$ 


PC, SECERR 
10$ 


PC a(SP)+ 
21% 


; CHANGE ar ADDRESSES 


BR 


#11$.$LPERR 
12$ 


+ G0 READ REGISTER(S) WITH GET SUBROUTINE 
ERROK 


| ROR 
sERROR # DEFINED BY GET SUBROUTINE 
;GO TO 21$ IF ERROR 


;WAS COMMAND EXECUTED? 
;NO, GO WAIT 

EXPECTED STATUS 
sRECEIVED STATUS 


:GO TO TIMOUT SUBROUTINE 


;GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 8$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY GET SUBROUTINE 

;GO TO 21$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 

;GO TO 9$ IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 21$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
ERROR 
“ERROR # DEFINED BY SECERR SUBROUTINE 


‘6D BACK FOR MORE ERROR CHECKS 
GO TO 21$ IF ERROR 


STARR AKER EERE EERE KARE RRR ERE EER KEKE 


sLOOP #2 
11$: 


ee A, take OPERATION 


WORD 


READ- 


2 


154130 


>; PREPARE DEVICE: FOR TEST 
3 TASK DESCRIPTOR AS FOLLOWS: 
“SELECT DEVICE & VERIFY DEVICE AVAILABLE 
=CLEAR CONTROLLER & SELECT DEVICE 
: VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 


SEQ 0141 


mM ew 


Ss sles 


— 


eat tm - . 


aS | teas eee FCTNL TST 3 


WRITE, READ W/ ABORT 


030346 
030350 


030370 
030372 

2377 030376 
2378 030376 
30404 


032737 
001414 
013737 


« 042737 


013737 
347 


030520 


000014 
000200 


040000 
043350 


030520 


000000 
000200 
045330 


030520 


— 042774 


043060 


030520 
020000 
001350 
020000 
001350 
030520 


MACRO V04.00 


001553 
001554 
001426 


001412 


001350 


001140 
001140 
001142 


12$: 
: SET UNSAFE ERROR 
MOVB 


13$: 
:READ DATA FROM 
14$: 


15$: 


BR 


NOP 
EMT 
JMP 


12$ 


21% 


#RMER1 , PUT INX 
#200, PUTINX+1 
#UNS , RMER10 


21$ 


DEVICE. 
#RD!GO,RMCS10 
#PUTINX ,R2 


#200, (R2) 
PC,PUT 
15$ | 


21$ 
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SEQ 0142 
;RECALIBRATE IF ‘’SKI’* OR ‘PIP"' IS SET 


sRETURN HERE IF ERROR. 
sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 21$ IF ERROR 


;SETUP PUT INDEX a 
+ en nh 


: OR 
;ERROR DEFINED BY PUT SUBROUTINE 
;GO TO 21% IF ERROR 


;READ DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


;GO WRITE REGISTER(S) WITH PUT SUBROUT INE 
: NO ERROR 


OR 
ERROR # DEFINED BY PUT SUBROUTINE 
:GO0 TO 218 IF ERROR 


; SETUP a INDEX TABLE bute READ ALL REGISTERS 


sSEE if 


16$: 


17$: 


PC,GETST 


DEVICE STARTED COMMAND 
PC ,GET 


a 


21$ 
APIP,RMDS! 
17$ 


— RMDSI,$GDDAT 


APIP,SGDDAT 
RMDS1, $BDDAT 
347 


21$ 


:GO TO GETSTS SUBROUTINE 


es at ab get gh WITH GET SUBROUTINE 
0 16$ IF NO ERROR 

RE TURN HERE IF ERROR 

;ERROR # DEFINED BY GET SUBROUTINE 

;GO TO 21$ IF ERROR 


;WAS COMMAND EXECUTED?? 
“EXPECTED STATUS 
:RECEIVED STATUS 


| aS | aaaae RMO5S/3/2 FCTNL 
117 WRITE, READ W/ ABORT 


| 2387 
| 030436 
2386 


EREEREE 
SENSE 


Nm 
W 
» 2) 
WwW 
© 


0 
2395 030520 


2396 
2397 030520 
2398 
2399 


030520 


2406 030546 
030552 


030554 
030556 


030562 
2407 030566 
2408 


004737 


000137 


000004 
000240 


012737 


004737 
0541350 


ie ne 


TST 3 


043672 


043060 


030520 
044056 


030520 
044710 


030520 


001100 
001276 
001466 
000020 


0373516 


031556 


_—_—— 


Se ee 
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001226 


WAIT oe cee TO COMPLETE 


PC, TIMOUT 3GO0 TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR READ OPERATION 
JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 18$ GO TO 18% IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY GET SUBROUTINE 
ioe JMP 21$ :GO TO 21% IF ERROR 
JSR PC,PRIERR 3;GO CHECK FOR tele ERRORS 
BR 19$ :GO TO 19$ IF NO ERROR 
NOP *RET URN HERE IF ERROR 
EMT ;ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
‘ae JMP 21$ :G0 TO 21% IF ERROR 
, JSR PC,SECERR : GO CHECK FOR SECONDARY ERRORS 
BR 20$ -GO TO 20$ IF NO ERROR 
NOP = RETURN HERE IF ERROR 
EMT = ERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
JMP 21$ :GO TO 21% IF ERROR 
208: 
21$: 
ee eee 
“TEST 20 WRITE, READ EACH CURRENT LEVEL 
: RE RK RR K KER KKKKAKAKKEEKKKEKKEKKEKKEKKKKKKKKKK 
+5120: 
SCOPE :SCOPE CALL 
NOP . :START OF TEST 
MOV HSTACK, SF. : INITIALIZE STACK POINTER 
MOV SBASE ,RO RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
ts MOV #20, STESTN * 2 SET TEST NUMBER IN APT MAIL BOX 


STARR EEREKRE REE EEEREEKREEKKKEKKEREKEKEKKKEKEEEEKEKKEEKKEKEKEEKKEKRKEE 


;LOCOP #1 FORMAT ,WRITE ,READ 


;PREPARE THE DEVICE FOR FORMAT OPERATION 

Jan. 4 PL TSTPRE sPREPARE DEVICE FOR TEST 

-WORD 054130 : TASK DESCRIPTOR AS FOLLOWS: 
:CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
;RECAL IBRATE if “Skl OR ‘PIP’ IS SET 

; VERIFY RECALIBRAT ION 


BR 2$ :GO TO 2$ IF NO ERROR 

NOP =RETURN HERE IF ERROR 

EMT ;ERROR # DEFINED BY TSTPRP SUBROUT INE 
JMP 28$ :GO TO 28% IF ERROR 


2$: 


SEQ 0143 


_ 


+3 


re ete =o eee ee 
ae 


2409 

2410 030566 
2411 030574 
2412 050602 


0 
2418 030652 
2419 030652 
2420 030660 
2421 050666 
2422 


2423 
2424 030672 


030 
2442 030776 
2443 


2444 
2445 030776 
03 


004737 
004737 
004737 
000404 
900240 
104000 
000137 


CZRMOBO RMO5S/3/2 FCTINL TST 3 
WRITE, READ EACH CURRENT LEVEL 


GQ0000 
106436 
177376 
019000 
000063 
040242 
070426 
031556 


072060 
000001 
042174 


043330 


031556 


042774 


043672 


043060 


031556 


056572 


031556 
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001174 


001176 


;LOAD PARAMETERS AND GENERATE DATA BUFFER 
V #0,RMD 2 


MO co sCYLINDER = 
3$: MOV -RMDAO RACK = Af SECTOR = 0 

MOV ONE ,RMBAO ‘BUS A 

MOV #-258. ,RMWCO se 4 256, WORDS (2°S COMP) 

MOV #FMT16,RMOFO 316 BIT T 

MOV #WH!GO,RMCS10 “WRITE HEADER AND DATA COMMAND 
: VERIFY THAT SECTOR IS NOT BAD 

JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 

:GO TO 4$ IF NO ERROR 

TYPE ~SCTMSG ; TYPE BAD SECTOR MESSAGE 

EMT * ERROR # DEFINED BY eee SUBROUT INE 
s JMP 28$ :GO TO 28% IF ERROR 

MOV #ZEROS,$TMPO : STARTING noone ss OF PATTERN 

MOV #1,$T MP1 “RANGE OF PATTERN 

JSR PC,  GENBUF :G0 GENERATE BUFFER FOR FORMAT 
s;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 

MOV APUTINX,R2 :R2 = BYTE ENTRY POSITION 

MOVB ARMDC, (R2)+ 

MOVB ARMDA, (R2) + 

MOVB ,(R2)+ 

MOVB ARMWC , (R2) + 

MOVB , (R2)+ 

MOVB ARMCS1, (R2)+ 
= MOVB #200, (R2) : TERMINATE TABLE 

JSR PC,PUT :GO WRITE py tag WITH PUT SUBROUTINE 

BR 6$ :GO TO 6$ IF NO ERROR 

NOP :RETURN HERE IF ERROR 

EMT :ERROR # DEFINED BY PUT SUBROUT INE 
6s JMP 28S :GO TO 28$ IF ERROR 

:SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 


;WAIT FOR. COMMAND TO COMPLETE 
JSR - PC, TIMOUT 


7$: 


: VERIFY . 


NOP 
EMT 
JMP 


NOP 
EMT 


JMP 


28$ 


ERRORS DURING FORMAT 
PC,DTASTS 


PC,a(SP)+ 
28% 


:GO TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR FORMAT OPERATION 
JSR PC,GET 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 7$ IF NO ERROR 

[RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 


:GO TO 28% IF ERROR 


3GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 8$ IF NO ERROR 
:RETURN HERE IF ERROR 
sERROR # DEFINED BY DTASTS SUSROUTINE 
‘60 BACK FOR MORE ERROR CHECKS 

O TO 28% IF ERROR 


a een ee ee eee ee ee ee ee | ee 


SEQ 0144 


CZRMOBO RMO0S/3/2 FCINL TST 3 


T20 


2446 031016 
2447 

2448 

2449 031016 
2450 931024 
“Gs 

2 

2455 031026 
2456 

2457 


C 1 
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WRITE, 9EAD EACH CURRENT LEVEL 


012737 031026 001124 
000410 


8$: 


sMOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #9% ,SLPERR 


BR 


;SKIP TO WRITE OPERATION 


3 (PRR SASAASLAAALSRAASRAARARASRARARSARRARARRRRARAR RAR RRRRRARARRRRRS ASSESS SE | 


zLOOP #2 
9$: 


WRITE ,READ 


2458 ;PREPARE DEVICE FOR res A OPERATION 
2459 031926 004737 037316 JSR PC,TSTPR sPREPARE DEVICE FOR TEST 
031032 054150 .WORD 054130 ; TASK DESCRIPTOR AS FOLLOWS: 
SCLEAR CONTROLLER & SELECT AS 
;VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘‘SKI'’ OR ‘PIP’’ IS SET 
; VERIFY RECALIBRATION 
031034 000404 BR 10$ :GO TO 10$ IF NO ERROR 
031036 000240 NOP ;RETURN HERE IF ERROR 
031040 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
031042 000137 031556 JMP 28$ :GO TO 28$ IF ERROR 
eee 031046 10$: 
2462 031046 11$: 
2463 
2464 sWRITE DATA TO i DRIVE 
2465 031046 012757 177400 001414 MOV on tage 3256. WORDS (2°S COMP) 
2466 031054 012737 106442 001416 MOV WBUF ONE +4 -RMBAO ; CHANGE ADDRESS 
2467 031062 012737 000061 001412 MOV #WD!GO,RMCS10 :WRITE DATA COMMAND 
2468 031070 012702 0015535 MOV #PUTINX,R2 ; LOAD PUT REGISTER INDEX TABLE 
2469 031074 112722 MOVB ARMDA, (R2) + 
470 031100 112722 000034 MOVB ARMDC , (R2) + 
471 031104 112722 000032 ARMOF , (R2) + 
2472 031110 112722 000004 MOVB ARMBA , (R2) + 
2473 031114 112722 000002 MOVB ARMWC . (R2) + 
2474 031120 112722 000000 MOVB ARMCS1,(R2)+ 
ooe 031124 112722 000200 MOVB #200, (R2)+ : TERMINATE TABLE 
2477 031130 004737 043350 JSR PC,PuT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
031134 0004 12$ :GO TO 12$ IF NO ERROR 
031136 000240 NOP ;RETURN HERE IF ERROR 
031140 104 EMT sERROR # DEFINED BY PUT SUBROUT INE 
031142 000137 031556 JMP 28$ :GO TO 28% IF ERROR 
5055 031146 12$: 
2480 ; SETUP ay INDEX TABLE TO READ ALL REGISTERS 
031146 004737 042774 PC,GETSTS :GO TO GETSTS SUBROUTINE 
2482 sWAIT FOR COMMAND TO COMPLETE 
24.83 031152 004737 043672 JSR PC,TIMOUT :GO TO TIMOUT SUBROUTINE 
2484 ;GO READ STATUS FOR WRITE COMMAND 
2485 031156 004737 043060 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 


Richins 





a i ss ee te 


SEQ 0145 


| ¢ 
| T 
| 031162 
| 031164 
031166 
| 031170 
2486 031174 
2487 
| 2488 
2489 031174 
0312 
031202 
0312 
031206 
031210 
2490 031214 
2497 031214 
031220 
031222 
031224 
031226 
031230 
2492 0351254 
2493 
2494 031234 
2495 031234 
031240 
031242 
031244 
031246 
125 


031250 
2496 031254 
2497 
2498 
2499 031254 
Seno 031262 
2 
2505 031264 
2506 


2507 
2508 031264 
031270 


031272 


031300 
2509 031504 


2510 
5311 031304 
2512 


000137 


012737 
000410 


004737 
054150 


— -— oe ee ee 


ZRMOBO RMOS/3/2 FCTNL TST 3 
20 WRITE, READ EACH CURRENT LEVEL 


031556 


044056 


031556 
056572 


031556 


044710 


031556 


031264 


037316 


031556 


D1 
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001124 


BR 13$ 
NOP 
EMT 
JMP 28$ 


13$: 


:GO TO 13$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 
:GO TO 28$ IF ERROR 


> CHECK FOR a oc PRIERR WRITE O60 CHEE 


O CHECK FOR PRIMARY ERRORS 
:GO TO 14$ IF NO ERROR 


;RETURN HERE IF 


ERROR 
; ERROR : DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
;GO TO 28% IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
;GO TO 15$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY DTASTS SUBROUTINE 


iS BACK FOR MORE ERROR CHECKS 
;GO TO 28% IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
;GO TO 17$ IF NO ERROR 

sRETURN HERE IF ERROR 

;ERROR # DEFINED BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 

;GO TO 28$ IF ERROR 


;SKIP TO NEXT OPERATION 


SAREE AAKRRAKERAAREAEAEEEREKEARKEKEKEEAKKKAAEERAEKKEAKKAKEERKEKAKEEERAE EH 


sPREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

:CLEAR CONTROLLER & SELECT DEVICE 

‘aeek a CONTROLLER CLEAR OPERATION 
ACKNOWLEDGE IF VOLUME NOT VALID 

‘VERIFY PACK ACKNOWLEDGE 

:RECALIBRATE IF ‘'SKI'' OR 'PIP'' IS SET 

; VERIFY RECALIBRATION 

:GO TO 19$ IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR #4 DEFINED BY TSTPRP SUBROUTINE 

;GO TO 28% IF ERROR 


JSR 
BR 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 28$ 

14$: 
JSR PC DTASTS 
BR 15$ 
NOP 
EMT 
JSR PC,a(SP)+ 

: JMP 283 

15$: 

16$: 
JSR PC,SECERR 
BR 17$ | 
NOP 
EMT as 
JSR PC ,a(SP)+ 
JMP 28$ 

17$: 

; CHANGE LOOP ADDRESSES 
MOV tS age $LPERR 
BR 

“LOOP #3 READ 

18$: 

;PREPARE DEVICE FOR pee * here 
JSR PC,TSTPR 
. WORD 054130 
BR 19$ 
NOP ‘ 
EMT 
JMP 28S 

19$: 

20$: 





SEQ 0146 


SS a 
| rr a ES SE Oe Cee a ee ee 


—— -- 


ee 


— CZRMOBO RMOS/3/2 FCTNL TST 3 


T20 


2539 031452 


LAWN 
ed eed eed ed ed 


2541 O31a79 
2542 


ee ee ee ee ed ed ed dd 
MPOMIMIMONM NM NMIN NNN 
| ™N 
Nm 
™m 


004737 
004737 
rae 
0001 37 


004737 


107446 
177400 
060071 


001553 
000006 


0 
000200 
043330 


031556 


042774 
043672 


043060 
031556 


044056 


031556 
056572 


031556 


044710 


031556 
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WRITE, READ EACH CURRENT LEVEL 


001416 
001414 
001412 


238: 


READ oo FROM DEVICE 


NOP 

EMT 

JMP 
218: 


#BUF TWO+4 , RMBAO 
#-256. ,RMWCO 
#RD!GO,RMCS10 


#RMUIC . (R2)+ 
#RMCS1, (R2)+ 
#200, (R2) 


PC,PUT 
21$ 


28$ 


; CHANGE ADDRESS 
7256. WORDS (2°S COMP) 
sREAD DATA 


COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
;GO TO 21$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY PUT SUBROUTINE 

;GO TO 28% IF ERROR 


; SETUP yy INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS 


WAIT et ensass Mp TO COMPLETE 


:GO READ STATUS FOR READ OPERATION 
JSR PC,GET 


BR 


NOP 

EMT 

JMP 
22$: 


PC, TIMOUT 


28$ 


:GO TO GETSTS SUBROUTINE 

:GO TO TIMOUT SUBROUTINE 

;GO READ Nap ahd agg bd. WITH GET SUBROUTINE 
; NO ERROR 


ERROR 
sERROR # DEFINED BY GET SUBROUTINE 
:GO TO 28% IF ERROR 


7 CHECK s nC BRIER READ OPERATION 


243: 
253: 


PC,a(SP)+ 
28$ 


PC ,DTASTS 
24$ 


PC ,a(SP)+ 
28% 


PC,SECERR 
26% 


PC ,a(SP)+ 
28S 


:GO CHECK FOR PRIMARY ERRORS 

:GO TO 23$ IF NO ERROR 

:RETURN HERE IF ERROR 

;ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 28$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
0 TO 24$ IF NO ERROR 


;RETURN HERE IF ERROR 

sERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TG 28% IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
;GO TO 26% IF NO — ~'y 

:RETURN HERE IF ERR 

;ERROR # DEFINED BY OSE CERR SUBROUTINE 
7GO BACK FOR MORE ERROR CHECKS 

=GO TO 28% IF ERROR 


SEQ 0147 


ee ae ne ne oe eee oo 


LL LL ee I aaa as 
—— 


pone 


—— RMO5/3/2 FCTNL TST 3 
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—_——_—_———— ne 


WRITE, READ EACH CURRENT LEVEL SEQ 0146 

2545 031512 26$: 

2546 031512 004737 042432 JSR PC, CMPBUF :GO COMPARE WRITE, READ DATA BUFFERS 
031516 106442 -WORD BUFONE+4 s STARTING ADDRESS OF WRITE BUFFER 
031520 107446 «WORD BUF TWO+4 ZSTARTING ADDRESS OF READ BUFFER 
031522 000404 BR 27$ :GO TO 27$ IF NO ERROR 
031524 000240 NOP ;RETURN HERE IF ERROR 
031526 104 EMT sERROR # DEFINED BY CMPBUF SUBROUTINE 
031530 000137 031556 JMP 28$ :GO TO 28% IF ERROR 

2547 031534 27$: 

2548 031534 062737 000200 001446 ADD #128. ,RMDCO s ADVANCE TO NEXT THRESHOLD 

2549 031542 023727 001446 0601400 CMP RMDCO,4#768. ith 

2550 031550 101002 BHI 28$ if 

2551 031552 000137 030574 JMP 3$ DO NEXT CURRENT LEVEL 

2392 031556 288: 

$227 SOOO IOIIUIIUIOIIOIOIIIOISIOIIUINIOIIIOIIDIOIUIOIUIOIOIIOIDIOIOIUISIUIOIOISOIDOINIOIOI Oi n tit 

>*TEST 21 WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING 
DORUIIIUIIIIIIIUIIOIOIIUISIOIIOIIIOIOIIUIOISIIOIUIOIOIOIUIDIOIOIUIOIDIOIUIUIOIOIIOIIUIO IDE n itt 
031556 TST21: 
C31556 000004 SCOPE sSCOPE CALL 
031560 000240 NOP sSTART OF TEST 
031562 012706 001100 MOV ASTACK,SP s INITIALIZE STACK POINTER 
031566 013700 001276 MOV $BASE ,RO ;RO = UNIBUS -ADDRESS 
031572 0135701 001466 MOV TSTQUE ,R1 ;(R1) = DEVICE BEING TESTED 
031576 012737 000021 001226 MOV #21,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
$222 031604 1$: 
2557 oe ee ee ti Re et Re i i i RRR ERE EERE EERE RAE ER 
S226 “LOOP #i FORMAT ,WRITE ,READ 
2560 031604 004737 037316 JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 
031610 0541530 -WORD 054150 ; TASK DESCRIPTOR AS FOLLOWS: 
>CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
> VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF “'SKI°’ OR ‘PIP’’ IS SET 
; VERIFY RECAL IBRATION 

031612 000404 BR 2$ :GO TO 2$ IF NO ERROR 

031614 000240 NOP ;RETURN HERE IF ERROR 

031616 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 

C31620 000137 052562 JMP 26$ ;GO TO. 26$ IF ERROR 

$26) 031624 2$: 

2563 ;LOAD PARAMETERS AND GENERATE DATA BUFFER | 

2564 031624 012737 000577 00144 MOV #3835. ,RMDCO ;CYLINDER = 5385. 

2565 031632 013757 001334 001420 MOV LSTRK.RMDAO :SET LAST TRACK AND 

2566 031640 112737 000037 001420 MOVB #31. ,.RMDAO LAST ioe 

2567 031646 012737 36 001416 MOV #BUF ONE , RMBAO ;BUS ADDRESS 

2568 031654 012737 176774 001414 MOV =: #=258. #2 ,RMWCO 2 SECTORS (2*S COMP) 

2569 031662 012737 010000 001444 MOV #FMT16,RMOFC 316 BIT FORMAT 

Sey 031670 0127357 000065 001412 MOV WH !GO,RMCS10 :WRITE HEADER AND DATA COMMAND 

2572 sVERIFY THAT SECTOR IS NOT BAD 
031676 004737 040242 JSR PC ,BADSCT is BAD SECTOR MODULE 
031702 000405 BR $ O TO 3$ IF NO ERROR 
031704 104401 070426 TYPE »SCTMSG ‘TYPE BAD SECTOR MESSAGE 


tA am ge ck 


~ —_ ee 
LT Le ee —_— - 


ee a 


WRITE 


2006 
032010 


90 
2591 
032014 


0 
2601 032062 
2602 
2603 
2604 032062 
2605 032070 
2606 
2607 
2608 
2609 
2610 032072 
2611 
2612 


a3 3-3 IO 
eed eed ced eed ceed ed eed eed 
MMIMIMNMNMINNY 


000137 


004737 
004737 


004737 


6 
000137 


012737 
000410 


TST 3 
HECK W/ CURRENT LEVEL SWITCHING 


032562 
072016 
000001 
042174 


001553 

34 
000200 
043550 


032562 


042774 
043672 


043060 
032562 


056572 


032562 


032072 001124 


Sos Tilde Re 
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sERROR # DEFINED BY BADSCT SUBROUTINE 
:GG TO 26$ IF ERROR 


SB ANGE OF mq t OF PATTERN 
3GO GENERATE BUFFER FOR FORMAT 


;LOAD PUT tearm So FR aa FOR Miecaten' OPERATI ION 


EMT 
JMP 26% 
3$: 
MOV MONES , STMPO 
MOV #1,37MP1 
JSR PC, GENBUF 
MO TIN 
MCVB HRMDC, (R2)+ 
MOVR ARMDA, (R2) + 
MOVB #RMBA, (R2) + 
MOVB ARMWC , (R2)+ 
MOVB HARMOF , (R2) + 
MOVB ARMCS1, (R2)+ 
wl MOVB #200, (R2) 
JSR PC,PUT 
BR S$ 
NOP 
EMT 
JMP 26% 
5$: 


R2 = BYTE ENTRY POSITION 


; TERMINATE TABLE 


;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
;GO TO 5$ IF NO ER aa 

:RETURN HERE IF ERR 

;ERROR # DEFINED BY oPUT SUBROUT INE 

:GO TO 26$ IF ERROR 


> SETUP et = INDEX TABLE TO READ ALL REGISTERS 


;WAIT bet esguena TO COMPLETE 


:GO READ STATUS FOR FORMAT OPERATION 
JSR PC,GET 


6$: 
i: VERIFY 


7$: 
s;MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #8$,$LPERR 


BR 

NOP 
EMT 
JMP 


PC,GETSTS 


PC,TIMOUT 


26$ 


NO ERRORS DURING FORMAT 
PC,DTASTS 


PC,a(SP)+ 
26$ 


WRITE ,READ 


:GO TO GETSTS SUBROUTINE 
:GO TO TIMOUT SUBROUTINE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 6$ IF NO ERROR 

:RETURN HERE IF ERROR 

;ERROR # DEFINED BY GET SUBROUTINE 

:GO TO 26$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
;GO TO 7$ IF NO ERROR 
:RETURN HERE IF ERROR 
ZERROR # DEFINED BY DTASTS SUBROUTINE 
“66 BACK FOR MORE ERROR CHECKS 

O TO 26% IF ERROR 


zSKIP TO WRITE OPERATION 


SS RERRAEAEAERAEREERAKAEEEEEAEEERKAEAERAAAARAERAEARARARERAEAERAAERRAAR AES 


;LOOP #2 
8$: 


LLL LE A I i em a ~~ 


SEQ 01 


POUR 
-_ 


ee eee Haan nn ener ae cera ence eee acerca esse sss — 
ow —_—_—_—_——_———— eee 


H 12 
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WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING SEQ 0150 
2613 seit? oe FOR oth OPERATION 
27674 032072 004737 037316 PC, TSTPRP sPREPARE DEVICE FOR TES? 

032076 054150 ORD 054130 3 TASK DESCRIPTOR AS FOLLOWS: 


>CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
s;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘‘SKI'’ OR 'PIP’’ IS SET 
: VERIFY RECALIBRATION 


032100 000404 BR 9$ :GO TO 9$ IF NO ERROR 
032102 000240 NOP “RETURN HERE IF ERROR 
032104 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
032106 000137 032562 IMP 26$ "GO TO 26$ IF ERROR 

2615 032112 9$: 

2616 

2617 032112 10S: 

2618 

2619 ;WRITE DATA TO THE DRIVE 

2620 032112 012737 177000 001414 MOV #-256. *2,RMWCO :2 SECTORS (2°S COMP) 

2621 632120 012737 106436 001416 MOV #BUF ONE , RMBAO “CHANGE ADDRESS 

2622 032126 012737 000061 001412 MOV #WD!GO,RMCS10 “WRITE DATA COMMAND 

260 012737 072016 001174 MOV #ONES , $TMPO “STARTING ADDRESS OF PATTERN 

2624 032142 012737 000001 001176 MOV #1, $TMP1 “RANGE OF PATTERN 

2625 032150 004737 042174 JSR PC, GENBUF “GO GENERATE BUFFER FOR FORMAT 

2626 032154 012702 001553 MOV H#PUTINX,R2 :;LOAD PUT REGISTER INDEX TABLE 

2627 032160 112722 000006 MOVB = ARMDA, (R2)+ 

2628 032 112722 000034 MOVB  #RMDC.(R2)+ 

2629 032170 112722 000032 MOVB  #RMOF .(R2)+ 

2630 032174 112722 000004 MOVB § #RMBA.(R2)+ 

2631 032200 112722 000002 MOVB A#RMWC. (R2)+ 

2632 032204 112722 000000 MOVB = #RMCS1, (R2)+ 

2635 032210 112722 000200 | MOVB #200, (R2)+ : TERMINATE TABLE 

2635 032214 004737 043330 JSR PC PUT G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
032220 000404 BR 11$ “GO TO 11$ IF NO ERROR 
032222 000240 NOP “RETURN HERE IF ERROR 
032224 104000 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
032226 000137 032562 JMP 26$ “GO TO 26$ IF ERROR 

2636 032232 11$: 

2638 /SETUP GET INDEX TABLE TO READ ALL REGISTERS 

nag (32232 004737 042774 PC,GETSTS >GO TO GETSTS SUBROUTINE 

2640 WAIT FOR COMMAND TO COMPLETE 

rahe 032236 004737 043672 JSR PC, TIMOUT G0 TO TIMOUT SUBROUTINE 

2642 :GO READ STATUS FOR WRITE COMMAND 

2643 032242 004737 043060 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
032246 000404 BR 12$ =GO TO 12$ IF NO ERROR 
032250 000240 NOP “RETURN HERE IF ERROR 
032252 104000 EMT . “ERROR # DEFINED BY GET SUBROUTINE 
032254 000137 032562 JMP 26$ "GO TO 26% IF ERROR 

2644 032260 128: 

2646 CHECK FOR ERRORS DURING WRITE OPERATION 

2647 032260 004737 044056 JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
032264 000405 BR 13$ =GO TO 13$ IF NO ERROR 


| eae RMO5/3/2 FCINL TST 3 


032274 
2648 032300 
2649 032300 
032304 


2655 OasaSe 


y) 4 
2654 032540 
2655 
2656 
2657 032340 
2658 032346 
2659 
2660 
2661 
662 
2663 032350 
664 


032356 

032360 

032362 

032364 
eo t4 032370 
2669 032370 
2670 


2671 
2672 032370 


2679 032426 


000137 


012737 
000410 


004/737 
054130 


000404 


032562 
056572 


032562 


044710 


032562 


032550 


037316 


032562 


000051 
001553 
00000 


001124 


001412 


I 1 
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WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING 


SEQ 01517 
NOP sRETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC ,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
= JMP 26$ :GO TO 26$ IF ERROR 
JSR PC DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
BR 14$ GO TO 14$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC ,a(SP)+ 3GO BACK FOR MORE ERROR CHECKS 
JMP 26$ 7:GO TO 26$ IF ERROR 
14$: 
15$: 7 
JSR PC, SECERR 3;GO CHECK FOR SECONDARY ERRORS 
BR 16$ :GO TO 16% IF NO ERROR 
NOP *RETURN HERE IF ERROR 
EMT = ERROR # DEFINED BY SECERR SUBROUTINE 
JER PC ,@(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
JMP 26$ :GO TO 26$ IF ERROR 
16$: 
: CHANGE LOOP ADDRESSES 
MOV #17$,$LPERR 
BR 18$ :SKIP TO NEXT OPERATION 
CT REAR ERAEAEKAAKAERKEAEAEAAEAEARKERARAEKERAEHAAREE RRA 
:LOOP #3 READ 
17$: 
PREPARE DEVICE FOR READ * iiattleee 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
“BORD 054130 : TASK DESCRIPTOR AS FOLLOWS: 
> CLEAR CONTROLLER & SELECT DEVICE 
> VERIFY CONTROLLER CLEAR OPERATION 
*PACK ACKNOWLEDGE IF VOLUME NOT VALID 
s VERIFY PACK ACKNOWLEDGE 
-RECAL IBRATE IF *‘SKI*' OR ‘PIP*’’ IS SET 
VERIFY RECALIBRATION 
BR 18$ =GO TO 18% IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 26$ :GO TO 26$ IF ERROR 
18$: 
19$: 


sREAD DATA FROM DEVICE 
MOV 


pet Phoed RMCS10 :READ DATA COMMAND 

MOV #PUTINX,R2 ;LOAD PUT REGISTER INDEX TABLE 
MOVB ARMDA, (R2) + 

MOVB #RMOF , (R2) + 

MOVB ARMDC,(R2)+ 

MOVB #RMBA, (R2) + 

MOVB ARMWC , (R2) + 

MOVB #RMCS1,(R2)+ 


ee ss es sels = nse ——- 


CZRMOBO RMO5S/3/2 FCINL TST 3 


T21 


2680 032432 
2681 


2682 


032436 


032454 
032454 
032460 


032464 


032502 


032502 
032506 


0 
032562 
032562 


032562 


112772 
004737 
000404 
000240 
104000 
000137 
004737 
004737 


004737 


000004 
000240 
012706 


000200 
043330 


032562 


042774 
043672 


043060 


032562 


044056 


032562 
056572 


032562 


044710 


032562 


001100 


J 
MACRO V04.090 4-APR=-81 01:75:59 PAGE 
WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING 


MOVB 


20$: 


#200, (R2) 
PC PUT 
20% 


26$ 


12 
13-81 
SEQ 015¢ 


;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 20$ IF NO ERROR 

:RETURN HERE IF ERROR 

;ERROR # DEFINED a PUT SUBROUTINE 


:GO TO 26$ IF ERROR 


; SETUP a INDEX TABLE TO READ ALL REGISTERS 


;WAIT FOR COMMAND " COMPLETE 
JSR TIMOUT 


BR 

NOP 

EMT 

JMP 
21$: 


PC,GETSTS 


PC, 


26$ 


:GO TO GETSTS SUBROUTINE 


;GO TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR READ OPERATION 
JSR PC ,GET 


+ GO READ REGISTER(S) WITH GET SUBROUTINE 
21$ IF NO ERROR 


ERROR 
sERROR # DEFINED BY GET SUBROUTINE 
:GO TO 26$ IF ERROR 


; CHECK be gees Mot * READ OPERATION 


BR 


22$: 


23$: 
245: 


25$: 
26$: 


PC, a(SP)+ 
26$ 


PC ,DTASTS 
23$ 


PC,a(SP)+ 
26$ 


PC,SECERR 
25$ 


PC ,a(SP)+ 
26% 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 22$ IF NO ERROR 


:RETURN HERE IF ERROR 

;ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 26$ IF ERROR 


;GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 23$ IF NO ERROR 
sRETURN HERE IF ER 


ROR 
[ERROR # DEFINED BY DTASTS SUBROUTINE 
3=GO BACK FOR MORE ERROR CHECKS 
:GO TO 26$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 25$ IF NO ERROR 


;RETURN HERE IF ERROR 

sERROR # DEFINED BY Art SUBROUT I NE 
;GO BACK FOR MORE ERROR CHECKS 

:GO TO 26$ IF ERROR 


WER OSARASRSSAASABSSSSALALAALARASESRER ASRS RRRARRS ARR RRA RRA RARRR DADS SS | 


WRITE, READ EARLY PEAK SHIFT 


RARER AEE EKER EEA AERA ERK ARRARRA RARER ERE RARER E REREAD 


“TEST 22 
TST22: 


NOP 
MOV 


SCOPE 
0 


ASTACK,SP 


; SCOPE age 
sSTART OF TEST 
SINITIALIZE STACK POINTER 


ED ES 
he S-s-ststt-s the-sneteta 
- ny ae re es ne ee ee ee ee — 


_ CZRMOBO RMOS/3/2 FCTNL TST 3 
WRITE, READ EAR 


—_———— 
a ee 
~ Oe —— 


T2e 


032572 


27 
2710 032610 
2711 


2712 
27135 032610 
032614 


032616 


03 
2714 032650 
2715 


2716 
2717 032630 


2740 032774 
033000 


033002 


073/00 
013701 
012737 


004737 
154150 


000404 


000137 


012737 


012737 


004737 
000405 
104401 
104000 
000137 


tet ed td = ot = CD 
eed med ed aed eed ed aed ad 
pi phe ne oA thy oh yh 
Nm 
Nm 


’ PE An 


001276 
001466 
000022 


037316 


033570 


010000 
000065 
040242 
070426 
033570 
072272 
000001 
042174 


001553 


00 
000200 


0433350 


001226 


001444 
001412 


001174 
001176 


MOV 
MOV 
MOV 


$BASE ,RO 
TSTQUE ,R1 
#22, $TESIN 


K 12 
oar V06.00 4-APR-81 01:15:59 PAGE 15-82 
H 


;RO = UNIBUS ADDRESS 
:(R1) = DEVICE BEING TESTED 
3iSET TEST NUMBER IN APT MAIL BOX 


CABS ee Se SARS ELRAAaSRAARARRAASRSASSSRARRRRRRR SRR RR RRRR RRR SR RRAS SSSA SEE SE | 


FORMAT ,WRITE ,READ 


: LOOP #1 


1$: 


;PREPARE THE DEV 
JSR 


2$: 


: VERIFY 


3$: 


4$: 


ICE FOR FORMAT OPERAT ION 
PC, TSTPRP PREPARE DEVICE FOR TEST 
~WORD 154130 : TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
7CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
*VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘'SKI'’ OR ‘PIP’' IS SET 
; VERIFY RECALIBRATION 
BR 2$ :GO TO 2$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 25$ :GO TO 25% IF ERROR 
;LOAD PARAMETERS AND GENERATE DATA BUFFER 
MOV #0 ,RMDCO ;CYLINDER = 0 
MOV AO ; TRACK = 0, SECTOR = 0 
MOV #BUF ONE , RMBAO :BUS ADDRESS 
MOV 4-258. ,RMWCO 32 + 256. WORDS (2°S COMP) 
MOV #FMT16,RMOFO :16 BIT FORMAT 
MOV #WH!GO,RMCS10 :WRITE HEADER AND DATA COMMAND 
THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT —s BAD SECTOR MODULE 
$ TO 3$ IF NO ERROR 
TYPE -SCTMSG ‘TYPE BAD SECTOR MESSAGE 
EMT :ERROR # DEFINED BY BADSCT SUBROUTINE 
JMP 25$ :GO TO 25$ IF ERROR 
MOV MEARLY , STMPO ;STARTING ADDRESS OF PATTERN 
MOV #1,$1TMP1 sRANGE OF PATTERN 
JSR PC ,GENBUF ;GO GENERATE BUFFER FOR FORMAT 
;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
MOV APUTINX,R2 ;R2 = BYTE ENTRY POSITION 
MOVB H#RMDC , (R2) + 
MOVB ARMDA , (R2) + 
MOVB ARMBA, (R2) + 
MOVB ARMWC , (R2)+ 
MOVB ARMOF , (R2) + 
MOVB ARMCS1, (R2)+ 
MOVB #200, (R2) ; TERMINATE TABLE 
JSR PC,PUT ;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 5$ :GO TO 5$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 


SEQ 0153 


re RS ee 
| TS SE ee ee ° 


033004 
035006 
2741 035012 


033012 


053016 


2756 033060 
et 033066 


pi a hs 
o 
'—Q_ oa 


104000 
000137 


000137 


012737 
000410 


CZ7RMOBO RMOS/3/2 FCTINL TST 3 
Tee WRITE, READ EARLY PEAK SHIF 


033570 


042774 


043672 


04 5060 


053570 


056572 


033570 


033070 


037316 


033570 


177400 00 
106442 00 


000061 


L le 
er V04.00 4-APR-81 01:15:59 PAGE 15-83 


CMT ZERROR # CEFINED BY PUT SUBROUTINE 
- JMP 25$ :GO TO 25$ IF ERROR 
: SETUP GET INDEX. TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 
zWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR FORMAT OPERATION 
JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 6$ :GO TO 6$ IF NO ERROR 
NOP = RETURN HERE JF ERROR 
EMT ;ERROR # DEFINED BY GET SUBROUTINE 
) JMP 25$ =GO TO 25% IF ERROR 
6$: 
: VERIFY NO ERRORS DURING FORMAT 
JSR PC ,DTASTS be VERIFY “eg OF DATA TRANSFER 
BR 7$ O TO 7$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ GO BACK FOR MORE ERROR CHECKS 
- JMP 25$ :GO TO 25$ IF ERROR 
:MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #8$.,$LPERR 
BR 
FL REE RE RARER EKEEKKEKEKEKEEKEREEREKEEKKEEE 
:LOOP #2 WRITE ,READ 
8$: 
: PREPARE Fy hgh FOR eth OPERATION 
PC, TSTPR ;PREPARE DEVICE FOR TEST 
fer 154130 : TASK DESCRIPTOR AS FOLLOWS: 
= SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
:;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
*RECALIBRATE IF ‘‘SKI'' OR 'PIP’' IS SET 
; VERIFY RECALIBRATION 
BR 9$ GO TO 9$ IF NO eae 
NOP * RETURN HERE IF ERR 
EMT sERROR # DEFINED BY TSTPRP SUBROUT INE 
oe JMP 25$ :GO TO 25$ IF ERROR 


:WRITE DATA TO THE DRIVE 
10$: 


MOV 4-256. ,RMWCO 
MOV #BUF ONE +4 , RMBAO 
MOV #WD!GO,RMCS10 


;CHANGE WORD COUNT 
: CHANGE ADDRESS 
:WRITE DATA COMMAND 


SEQ 0154 


ce re re a es 
seen EE A 


Se nome 


Tee 


2773 053132 
e 3136 


03 

033310 

033312 
2799 033316 
2800 


2801 
2802 033316 
2803 033324 
2804 


004737 


004737 


004737 
000404 
000240 
104000 
000137 


004737 


CZRMOBO RMO5/3/2 FCTINL TST 3 
WRITE, READ EARLY PEAK SHIF 


001553 


033570 


042774 
043672 


043060 
033570 


044056 


033570 
056572 


033570 
044710 


033570 


_— —— —— -.— _-—— 


+ V06.00 4-APR-81 01:15:59 PAGE 


11$: 


#PUTINX ,R2 


#200, (R2)+ 


PC PUT 
11$ 


25$ 


M 12 
E 135- 


-84 


;LOAD PUT REGISTER INDEX TABLE 


; TERMINATE TABLE 


:G0 eg REGISTER(S) WITH PUT SUBROUTINE 
;GO TO 11$ IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # DEFINED BY PUT SUBROUTINE 

;GO TO 25$ IF ERROR 


; SETUP ri INDEX TABLE TO READ ALL REGISTERS 


WAIT siege grate TO COMPLETE 


+60 READ STATUS FOR WRITE COMMAND 
JSR PC,GET 


12$: 


BR 


EMT 
JMP 


PC,GETSTS 


PC, TIMOUT 


25$ 


:GO TO CETSTS SUBROUT INE 


:GO TO TIMOUT SUBROUTINE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
NO ERROR 


ERROR 
sERROR # DEFINED BY GET SUBROUTINE 


;GO TO 25$ IF ERROR 


; CHECK FOR —s. DURING WRITE OPERATION 
J PRIERR 2G 


13$: 


14$: 


15$: 
; CHANGE 


033526 001124 


PC, 


PC ,a(SP)+ 
25$ 


PC, ,DTASTS 
14$ 


PC,a(SP)+ . 
25$ 


PC,SECERR 
15$ 


PC ,a(SP)+ 
25$ 


LOOP ADDRESSES 
MOV 


BR 


#16%$,$LPERR 
17$ 


O CHECK FOR PRIMARY ERRORS 
;GO TO 13$ IF NO ERROR 


ZRETURN HERE IF 


ERROR 
sERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 25% IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:G0 TO 148 IF ERROR 

;RETURN HERE IF ERROR 

[ERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 555 IF ERROR 


+ GO CHECK FOR SECONDARY ERRORS 
;GO TO 15$ IF NO ERROR 
:RETURN HERE IF 


ERROR 
:ERROR # DEFINED BY SECERR SUBROUTINE 


O BACK FOR MORE ERROR CHECKS 


:GO TO 25$ IF ERROR 


SEQ 0155 


~ 


T2e 


2805 
2806 
2807 
2808 033326 
2809 


2810 
2811 033326 
033332 


2825 033416 

2826 

2827 033422 
033426 
033430 
033452 


033434 
geek 033440 


34 
2835 033450 
033454 
033456 
033460 
033462 
2836 033466 

2837 


2838 
2839 033466 


—_—— 


004737 
154130 


000404 
000240 
104000 
000137 


000137 


004737. 


004737 


004737 
04 


a ee ee re 


CZ7RMOBO RMOS/3/2 FCINL TST 3 
WRITE, READ EARLY PEAK 


037316 


035570 


000071 


000200 
043330 


033570 


042774 
043672 


04 3060 


033570 


044056 


12 
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SHIF 


Whee RASBSBAASAASSSRSASAASRAARAAARERARRR RRR RR RRR RRRRR RRR RE RRR RRR RRR SSS S| 


*(OOP #3 


16$: 
: PREPARE meres Aly oaks OPERATION 


17$: 
;READ DATA FROM 
18$: : 


19$: 


. WORD 


BR 

NOP 
EMT 
JMP 


READ 


154130 


17$ 


25$ 


DEVICE 


#RD!GO,RMCS10 


#200, (R2) 


PC ,PUT 
19$ 


25$ 


sPREPARE DEVICE FOR TEST 
; TASK DESCRIPTOR AS FOLLOWS: 
i SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 

: VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF tite OR ‘'PIP’’ IS SET 
: VERIFY RECALIBRATI 

;GO TO 17$ IF NO ERROR 
;RETURN HERE IF ERROR 

;ERROR # DEFINED BY TSTPRP SUBROUTINE 


:GO TO 25$ IF ERROR 


;READ DATA COMMAND 
; CHANGE BUFFER 
;LOAD PUT REGISTER INDEX TABLE 


:GO WRITE yah tight WITH PUT SUBROUTINE 


~;GO TO 19$ IF NO 


;RETURN HERE IF ERROR 
;ERROR # DEFINED BY PUT SUBROUT INE 
:GO TO 25$ IF ERROR 


; SETUP a INDEX TABLE TO READ ALL REGISTERS 


:WAIT FOR COMMAND TO COMPLETE 
JSR TIMOUT 


20$: 


PC,GETSTS 


rt. 


25$ 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR READ OPERATION 
SR PC,GET 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
;GO TO 20$ IF NO ERROR 

:RETURN HERE IF ERROR 

;ERROR # DEFINED BY GET SUBROUTINE 

:GO TO 25$ IF ERROR 


; CHECK or ERRORS cane READ OPERATION 


PC 


:GO CHECK FOR PRIMARY ERRORS 


SEQ 0156 


————— 


ee a 


ZRMOBO RMOS/3/2 FCINL TST 3 
22 WRITE, READ EARLY PEAK SHIFT 


2841 Oasys 


0 
2846 035570 


2847 
2848 033570 
2849 
2850 


4 
2855 0335616 
856 


2857 
2858 033616 
033622 


000405 
000240 
000 


000 

000240 
104000 
000137 


012737 


033570 
056572 


033570 
044710 


033570 
042432 


033570 


001100 


6 
000025 


037316 


a —_- ee - —_—— ~~ —— _ —_—— 


¢ 


B 13 
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BR 27$ :GO 10 21$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC. a(SP)+ >GO BACK FOR MORE ERROR CHECKS 
ee MP 25$ -GO TO 25$ IF ERROR 
JSR PC DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR -—Ssé 2 GO TO 22$ IF NO ERROR 
NOP | < RETURN HERE IF ERROR 
EMT ERROR “ DEF INED BY DTASTS SI'BROUTINE 
JSR PC a(SP)+ >GO BACK FOR MORE ERROR CHECKS 
‘in JMP 25$ =GO TO 25$ IF ERROR 
JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 23$ -GO TO 23$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC a(SP)+ _ 360 BACK FOR MORE ERROR CHECKS 
sil MP 25$ - 360 TO 25$ IF ERROR 
72 PC, CMPBUF :GO COMPARE WRITE, READ DATA BUFFERS 
WORD BUFONE+4 : STARTING ADDRESS OF WRITE BUFFER 
“WORD BUF TWO+4 “STARTING ADDRESS OF READ BUFFER 
24$ | :GO TO 24$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT SERROR # DEFINED BY CMPBUF 5 
JMP 25$ >GO TO 25$ IF ERROR 
24$: , 
2538: 
FF REE AEE ERE EEEEEREEEEEEKEEKREREKKEREEEKEEKEEEREERKEREEREREERKEREEE 
“*TEST 23 WRITE, READ MIXED PEAK SHIFT 
MARREARAAAAAASAAALALASAALAAAALASASLALR SSAA LAR E A SRA SRSA SARSA SARA ASR SASS SSS SD @ 3 
+$123: 
SCOPE 3  sSCOPE CALL 
NOP *START OF TEST 
MOV ASTACK, SP “INITIALIZE STACK POINTER 
MOV SRASE ,RO *RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 >(R1) = DEVICE BEING TESTED 
001226 MOV #23, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
3 SIE IEISIISISOSISIEISISISISIISSIIIEIEIOISIISIOOIIOISISIIOOIDOIDIDIEIIISIOIDIDIOINIOUDIDINIOII IO 
“LOOP #1 FORMAT ,WRITE.READ | 
1$: | 
: PREPARE THE DEVICE FOR FORMAT OPERATION 
JS PC, TSTPRP :PREPARE DEVICE FOR TEST 


R 
.WORD 154130 
AR CONT 


:CL 

: VERIFY CONTROLLER CLEAR OPERAT ION 
K ACKNOWLEDGE IF VOL 

‘VERIFY. PACK ACKNOWLEDGE 

SRECALIBRATE IF 'SKI'’ OR "PIP" IS SET 

:VERIFY RECALIBRATION 


; TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY ht AVAILABLE 
ROLLER DEVICE 


——- - 
SL een 


—~«T23 


! 
/ 


0633624 

033626 

033630 

033632 
2859 033636 
2860 


2867 033674 
2868 


2869 
eT 


eee ee en a) 
ed ed eed oad ad od od ed 
NW fPongngnaNnoponony 


Sesse 
ae 


> | 
we 
™N 


/ CZRMOBO RMOS/3/2 FCTNL TST 3 
WRITE, READ MIXED PEAK SHIFT 


034576 
000000 
000000 
106436 
177376 
010000 
000063 


040242 
070426 
034576 
071756 
000200 
042174 


043350 
034576 


042774 
043672 


043060 


034576 


C 13 
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001412 


001174 
001176 





BR 2$ :GO TO 2$ IF NO ERROR - 
NOP >RETURN HERE IF ERROR ° 
EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 25$ 729 TO 25$ IF ERROR 
23: 
:LOAD PARAMETERS AND GENERATE DATA BUFFER 
MOY #0,RMDCO sCYLINDER = 0 
MOV #0,RMDAO s TRACK = 0, SECTOR = 0 
MOV #BUF ONE RMBAO :BUS ADDRESS 


MOV #-258. ,RMWCO 
MOV #FMT16.RMOFO 
MOV #WH!GO.RMCS10 


; VERIFY yo SECTOR IS NOT BAD 


32 + 256. WORDS (2°S COMP) 
:16 BIT FORMAT 
:WRITE HEADER AND DATA COMMAND 


PC ,BADSCT fe BAD ar % MODULE 

BR 3$ TO 3$ IF NO ERROR 

TYPE -SCTMSG ‘FYE BAD SECTOR MESSAGE 

EMT ;ERROR # DEFINED BY BADSCT SUBROUTINE 
JMPF 25$ :GO TO 25$ IF ERROR 


MOV AMIXED,STMPO sSTARTING ADDRESS OF PATTERN 
MOV #128. ,$TMP1 7RANGE OF PATTERN 
JSR PC , GENBUF :GO GENERATE BUFFER FOR FORMAT 


;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
MOV NX ,R2 :R2 = BYTE ENTRY POSITION 


3$: 


MOVB #RMCS1, (R2)+ 


MOVB #200, (R2) ; TERMINATE TABLE 


4$: 
JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 5$ 3:GO TO 5$ IF NO-ERROR 
NOP sRETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PUT SUBROUTINE 
< JMP 25% :GO TO 25$ IF ERROR 


>SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 


PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
:GO REAL STATUS FOR FORMAT OPERATION 
JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
6$ :GO TO 6$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY GET SUBROUTINE 
JMP 25$ :GO TO 25% Ir ERROR 


6$: 
:VERIFY NO ERRORS DURING FORMAT 


ee ee nee - ate eee ee. 2 oe 


SEQ 0158 


c — STS <sstiennstapenseens 
' 


: 
| 


| 


123 


2897 034046 
“O52 


2907 034076 
2908 


2909 
2910 034076 
0634102 


Ooo0oo 
FRESE 
— iw ss -—) —— 
_— 4 OO 
HvuoeRr 


ae) 
Ye] 
—z! 


BSSBBBEBSSBS 
FW - OOO WOUS wr — 
coseeecoecec 
FRE SESESESES 
ee eed ed eet eed = ws ow so 
—_— — 
NSFSLSRSEORAS 


a) 
. *) 
Wi, S) 
oul 
© 


eee 


004737 
5 


012737 
000410 


004737 
154150 


000404 
000240 
104000 
000137 


MMOIWWW 
MMM NN™N 


mron 
PIM 


—_— = I I I OO OO 
Nm 
™m 


S and an <a acl aad eal en en end ed en 
MPOMOMaPOMPoNnononononony 
Pa, FB PP 

Nm 


737 
04 


sa 
a 


000 
000137 


004737 


| CZRMOBO RMOS/3/2 FCTNL TST 3 
| WRITE, READ MIXED PEAK SHIFT 


056572 


034576 


034076 


037316 


034576 


177400 
106442 
061 


043330 
034576 


042774 
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001124 


7$: 


7MOVE LOOP ; DDRESSES TO NEXT OPERATION 
MOV #83 ,$LPERR 


JSR 


PC,DTASTS 
7$ 


PC ,a(SP)+ 
25% 


: G0 VERIFY RESULTS OF DATA TRANSFER 
NO ERROR 


E IF ERROR 
zERROR # hg BY ma 


7GO BACK FOR MORE ERR 


:GO TO 55$ IF ERROR 


r« 
, 


:SKIP TO WRITE OPERATION 


Whee et Ree SASRASRASSAASAAARAALASRARARARARARRARARRRARARRAASRARARA RRA SRA RSS SE ES | 


:LOOP #2 


8$: 


7 PREPARE P ihe FOR pill OPERATION 
PC,TSIP 


9$: 


:WRITE DATA 
10$: 


11$: 
> SETUP eo INDEX TABLE fete READ 


| JIORD 


BR 

NOP 
EMT 
JMP 





WRITE ,READ 


154130 


9$ 


25$ 


TO THE DRIVE 
#-256. ,RMWCO 
#BUF ONE 


+4 ,RMBAO 
#WD 'GO.RMCS10 


#RMCS1, (R2)+ 


#200, (R2)+ 
PC ,PUT 
11$ 


25$ 


PC,GETS 


sPREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

; SELECT DEVICE & VERIFY DEVICE AVAILABLE 

;CLEAR CONTROLLER & SELECT DEVICE 

:VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 

“VERIFY PACK ACKNOWLEDGE 

:RECALIBRATE IF ‘‘SKI'’ OR ‘PIP’’ IS SET 

> VERIFY RECALIBRATION 

:GO TO 9$1F NO ERROR 

7RETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 


:GO TO 25$ IF ERROR 


: CHANGE WORD COUNT 
: CHANGE ADDRESS 
;WRITE DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


; TERMINATE TABLE 


: GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
NO ERROR 


RROR 
Oy tO # DEFINED BY PUT SUBROUTINE 
GO TO 25% IF ERROR 


ALL REGISTERS 


:GO TO GETSTS SUBROUTINE 


SEQ 0159 


LL SE TNE ED 
~~ - 
ee i a err - 


| CZRMOBO RMOS/3/2 FCINL TST 3 


| 123 


2932 
034222 
2933 


2934 
2935 0545 


2947 034324 
2948 034332 
2953 034334 


2956 034334 
034340 


004737 


000137 


012737 
000410 


004737 
154130 


043672 


043060 
034576 


044056 


034576 
056572 


034576 
044710 


034576 


034334 


037316 


034576 
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WRITE, READ MIXED PEAK SHIFT 


001124 


:WAIT FOR COMMAND 19 COMPLETE 
TIMOUT 


JSR PC, :GO TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR WRITE COMMAND 
JSR PC.GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
12$ ;G0 TO 12$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT ERROR # DEFINED BY GET SUBROUTINE 
JMP 25$ -GO TO 25$ IF ERROR 
12$: 
CHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC PRIERR O CHECK FOR PRIMARY ERRORS 
BR 13$ O TO 13$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT - ERROR . DEFINED BY PRIERR SUBROUTINE 
JSR PC. a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
va JMP 25$ :GO TO 25$ IF ERROR 
JSR PC .DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 14$ :GO TO 14$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT . ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC. a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
ea JMP 25$ :GO TO 25$ IF ERROR 
JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 15$ :GO TO 15$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT :ERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
JMP 25$ :GO TO 25$ IF ERROR 
15$: 
: CHANGE LOOP ADDRESSES 
MOV #16$,$LPERR 
BR 17$ :SKIP TO NEXT OPERATION 
J AERA AAEAAAAAAEEAAAAREAAETRAERAKEERAKAERAAAAARAEE HARARE ARAARAEEAARE 
“LOOP #3 READ 
16$: 
PREPARE DEVICE FOR READ OPERATION 
JSR PC. TSTPRP :PREPARE DEVICE FOR TEST 
“WORD 154130 - TASK DESCRIPTOR AS FOLLOWS: 
-SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
“VERIFY CONTROLLER CLEAR OPERATION 
-PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
*RECALIBRATE IF '‘SKI'' OR 'PIP'' IS SET 
-VERIFY RECALIBRATION 
BR 17$ -GO TO 17$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 25% -GO TO 25$ IF ERROR 


SEQ 0160 


c LLL LLL EE CES CE TS I (ti atta ay 


123 


2957 034354 
2958 

2959 
2960 


034446 


034452 


DOCOCVOCCCOCOCOCCOCOoOOCCoOoO 
PRR R PER FER FERRER FERS 
F¥SRRNSERSRKRVSR 


Nee & 
OO &MO 


310 O]O 
teeta he hy he ol 
Nm 
MN 


ee | 


Nm 
N 
— 
Mm 


~ 000137 


004737 


004737 


004737 


CZ7RMOBO RMOS/3/2 FCINL TST 3 
WRITE, READ MIXED PEAK 


107446 
000071 


000200 
043350 


034576 


042774 
04 5672 


043060 
034576 


044056 


034576 
056572 


034576 
044710 


034576 
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SHIFT SEQ 0161 
17$: 
i DATA FROM DEVICE 
001416 MOV #BUF TWO+4 , RMBAO ; CHANGE BUFFER 
001412 MOV #RD!GO,RMCS10 :READ DATA COMMAND 
MOV #PUTINX,R ;LOAD PUT REGISTER INDEX TABLE 
MOVB #RMDA, (R2) + 
MOVB ARMOF , (R2)+ 
MOVB #RMDC, (R2)+ 
MOVB #RMBA, (R2)+ 
MOVB ARMWC , (R2) + 
MOVB #RMCS1,(R2)+ 
MOVB #200, (R2) 
JSR PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 19$ :GO TO 19$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY PUT SUBROUTINE 
‘os JMP 25$ :GO TO 25% IF ERROR 


SETUP y= INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS :GO TO GETSTS SUBROUTINE 
;WAIT FOR COMMAND "9 COMPLE TE 
JSR PC,TIMOUT ;GO TO TIMOUT SUBROUTINE 


:GO READ STATUS FOR READ OPERATION 
JSR PC,GET 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 20$ :GO TO 20$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY GET SUBROUTINE 


JMP 25$ :GO TO 25$ IF ERROR 


20$: 


;CHECK FOR ERRORS Te tote READ OPERATION 
JSR PC ,PRIERR ;GO CHECK FOR PRIMARY ERRORS 
:GO TO 21$ IF NO ERROR 


NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
21% JMP 25$ :GO TO 25$ IF ERROR 
JSR PC, ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 22$ :GO TO 22$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
296 JMP 25$ ;GO TO 558 IF ERROR 
JSR PC,SECERR ;GO CHECK FOR SECONDARY ERRORS 
BR 23$ :GQ TO 23$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT SERROR # DEFINED BY SECERR SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 
:GO TO 25$ IF ERROR 


JSR PC. a(SP)+ 
MP 25$ 


a 


ee eee 


123 


2989 034554 
259 tate 


2996 
2997 
2998 


2999 
3000 034624 
5001 


3002 
3003 034624 
034630 


034632 


000004 
000240 


0127357 


004737 
154130 


000404 


CZ7RMOBO RMOS/3/2 FCTINL TST 3 
WRITE, READ MIXED PEAK SHIFT 


42432 


034576 


001100 


6 
000024 


037316 


035624 


000000 
000000 
000065 


040242 
070426 


Se EE ES = en ee es ee we + 
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001226 


001446 
001420 


001416 
001414 
001444 
001412 


23%: 
JSR 
. WORD 
. WOR 
BR 
NOP 
EMT 
JMP 

248: 

25$: 


PC, CMPBUF 
BUF ONE +4 
BUF TWO+4 


24$ 


25$ 


:GO COMPARE trie” READ DATA BUFFERS 
sSTARTING ADDRESS OF WRITE BUFFER 
> STARTING a OF READ BUFFER 


:GO TO 24$ IF NO ERR 

sRETURN HERE IF ERROR 

ZERROR # DEFINED BY CMPBUF SUBROUTINE 
:GO TO 25$ IF ERROR 


eee ee eee eR eRS SRR RASR ARRAS ER SRR RRA R RRR RA RARARARR RRR RRR RRA RASA R RSS SE SO 


WRITE, READ EACH TRACK 


eee eSRGaaASAAAZRARAAARAARRAARARSARASRASR RASA RE R RRR RRR RRR RRR RRR RASS SD SS | 


=*TEST 24 
TST24: 


SCOPE 


ASTACK,SP 
$BASE ,RO 
TSTQUE ,R1 
#24,$TESTN 


:SCOPE CALL 
¢ START OF TEST 


; INITIALIZE STACK POINTER 
:RO = UNIBUS ADDRESS 
: (RI) = DEVICE BEING TESTED 
sSET TEST NUMBER IN APT MAIL BOX 


LR RRR EEE REA KEE EERE ERE RAKE EERE ERE EKER EERE EKER ERE ED 


FORMAT ,WRITE ,READ 


“LOOP #1 
1$: 


:PREPARE THE DEVICE A FORMAT OPERATION 
JSR PC, TSTPRP 


. WORD 


2$: 


;LOAD PARAMETERS AND GENERATE DATA BUFFER 
MOV #0 ,RMDCO 


MOV 
3$: 


;VERIFY THAT SECTOR IS NOT BAD 


JSR 
BR 


TYPE 


154130 


2$ 


26$ 


40 ,RMDAO 
BUF ONE , RMBAO 
#-258. ,RMWCO 
#FMT16,RMOFO 
#WH!GO,RMCS10 
PC ,BADS(T 

4$ 


. SCTMSG 


sPREPARE DEVICE FOR TEST 
: TASK DESCRIPTOR AS FOLLOWS: 


>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
7 VERIFY CONTROLLER CLEAR OPERATION ~ 


:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘'SKI'' OR 'PIP’' IS SET 
; VERIFY RECALIBRATION 


:GO TO 2$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 26$ IF ERROR 


;CYLINDER = 0 
; TRACK = 0. SECTOR = 0 


7QUS ADDRESS 
72 + 256. WORDS (2°S COMP) 

:16 BIT FORMAT 

:WRITE HEADER AND DATA COMMAND 


at nak SECTOR MODULE 
:GO TO 4% IF NO ERROR 
s TYPE *BAD SECTOR MESSAGE 


tee — 
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7264 WRITE, READ EACH TRACK 

034722 104000 EMT SERROR # DEFINED BY BADSCT SUBROUTINE 
034724 000137 (35624 JMP 26$ :GO 70 26$ IF ERROR 

3016 034730 4$: 

5017 034750 012737 071756 001174 MOV #MIXED,.STMPO 7STARTING ADDRESS OF PATTERN 

3018 034736 012737 GOU290 0011776 MOV #128. ,$7MP1 ;RANGE OF PATTERN 

$56 034744 004737 062°76 JSR PC, GENBUF :;GO GENERATE BUFFER FOR FORMAT 

3021 :LOAD PUT REGISTER INDEX TABLE FOR caer OPERATIION 

3022 034750 9012702 0071553 MOV #PUTINX,R2 R2 = BYTE ENTRY POSITION 

3023 034754 112722 000034 MOVB - #RMDC. (R2)* 

3024 034760 112722 000°06 MOVB #RMDA, (R2) + 

3025 0347 112722 000004 MOVB #RMBA, (R2) + 

3026 034770 112722 0 MOVB #RMWC, (R2) + 

3027 034774 112722 000032 MOVB #RMOF , (R2) + 

3028 03 112722 000000 MOVB #RMCS1, (R2)+ 

3029 935004 112712 000200 MOVB #200, (R2) . ; TERMINATE TABLE 

3030 035010 S$: 

3031 

3032 sFORMAT THE DRIVE 

30335 C35010 004737 043330 JSR PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
035014 000404 BR 6$ :GO TO 6$ IF NO ERROR 
035016 000240 NOP sRETURN HERE IF ERROR 
035020 104000 EMT , - ERROR # DEFINED BY PUT SUBROUTINE 
035022 000137 035624 : JMP 26S :;GO TO 26$ IF ERROR 

shee 035026 6$: 

3036 SETUP GET INDEX TABLE ct READ ALL REGISTERS 

3037 035026 004737 042774 JSR PC,GETS GO TO GETSTS SUBROUTINE 

$038 :;WAIT FCR COMMAND TO COMPLETE 

3039 035032 004737 043672 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

3040 :;GO READ STATUS FOR FORMAT OPERATION 

3041 035036 004737 043060 JSR PC,GET ;G0 i? wig yt WITH GET SUBROUTINE 
035042 000404 BR 7$ :;GO TO 7$ IF NO ERROR 
035044 000240 NOP RETURN HERE IF ERROR 
035046 104000 EMT s;ERROR # DEFINED BY GET SUBROUTINE 
035050 000137 035624 Seger JMP 26$ =GO TO 26$ IF ERROR 

bk 035054 7$: 

3044 VERIFY NO ERRORS DURING FORMAT 

3045 035054 004737 056572 JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
035060 000405 BR 8$ :GO TO 8$ IF NO ERROR 
035062 000240 NOP *RETURN HERE IF ERROR 
035064 104000 EMT = ERROR # DEFINED BY DTASTS SUBROUTINE 
035066 004736 JSR PC,@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
035070 000137 035624 JMP 26$ :GO TO 26% IF ERROR 

apr6 035074 8$: 

3048 sMOVE LOOP ADDRESSES TO NEXT OPERATION 

3049 035074 012737 035104 001124 ; MOV #9$,.$LPERR 

set 035102 0600410 BR 10$ :SKIP TO WRITE OPERATION 

3052 TEETER 

3053 sLOOP #2 WRITE ,READ 


3054 
3055 035104 9$: 


LT TT SS TT A NS A Ne 
a a er te A A 


A Sse ssssssr-=sstmess see ee 


WRITE, READ EACH TRACK SEG 0164 
2056 
3057 sPREPARE DEVICE — Thee OPERATION 
3058 035104 004737 037316 JSR TSTP sPREPARE DEVICE FOR TEST 
035110 154130 . WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
zPACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘‘SKI'' OR 'PIP’’ IS SET 
VERIFY RECALIBRATION 
035112 000404 mh 10$ :GO TO 10$ IF NO ERROR 
035114 000240 NOP sRETURN HERE IF ERROR 
035116 104000 EMT s;ERROR # DEFINED BY TSTPRP SLIBROUTINE 
035120 000137 035624 JMP 26$ :GO TO 26$ IF ERROR 
3059 035124 10$: 
s:WRITE DATA TO THE DRIVE 
306. 035124 11$: 
3063 C35124 012737 106442 001416 MOV #BUF ONE +4 , RMBAO ; CHANGE BUS ADDRESS 
035 012737 177400 001414 MOV #-256. ,RMWCO ; CHANGE WORD COUNT 
3065 035140 012737 000061 001412 MOV #WD'GO,RMCS10 zWRITE DATA COMMAND 
03 012702 001553 MOV #PUTINX,R2 :;LOAD PUT REGISTER INDEX TABLE 
$067 035152 112722 0 MOVB ARMDA, (R2) + 
3068 035156 112722 000034 MOVB #RMDC, (R2)+ 
3069 035162 112722 000032 MOVB #RMOF , (R2)+ 
3070 035166 112722 000004 MOVB ARMBA, (R2) + 
3071 035172 112722 000002 MOVB HRMWC , (R2) + 
3072 035176 112722 000000 MOVB #RMCS1,(R2)+ 
$57 035202 112722 000200 _MOVB #200, (R2)+ : TERMINATE TABLE 
3075 035206 004737 045330 JSR PC ,PUT GO WRITE gigog WITH PUT SUBROUTINE 
035212 000404 2 BR 12$ :GO TO 12$ IF NO ERROR 
035214 000240 NOP RETURN HERE IF ERROR 
035216 104000 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
035220 000137 035624 ~-JMP 26$ :GO TO 26% IF ERROR 
3078 035224 12$: 
307. SETUP GET INDEX TABLE TO READ ALL REGISTERS 
3079 035224 004737 042774 JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 
3080 -WAIT FOR COMMAND TO COMPLETE 
3081 035230 004737 043672 JSR PC,TIMOUT :GO TO inet SUBROUT I NE 
3082 :GO READ STATUS FOR WRITE COMMAND 
3083 035234 004737 043060 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
035240 000404 BR -G0 TO 13$ IF NO ERROR 
035242 000240 NOP *RETURN HERE IF ERROR 
035244 104000 EMT “ERROR # DEFINED BY GET SUBROUTINE 
035246 000137 035624 JMP 26$ :GO TO 26$ IF ERROR 
apee 035252 13$: 
3086 : CHECK FOR ERRORS gry ® WRITE OPERATION 
3087 035252 004737 044056 JSR PC,PRIERR -GO CHECK FOR PRIMARY ERRORS 
035256 000405 otal :GO TO 14$ IF NO ERROR 
035260 000240 NOP RETURN HERE JF ERROR 
035262 104000 EMT “ERROR # DEFINED BY PRIERR SUBROUTINE 


CZ7RMOBO RMO5/3/2 FCTINL TST 3 
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WRITE, 


Yala yf ha FCTNL TST 3 
724 READ EACH TRACK 


i 73 
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cea 


035264 004736 JSR PC ,@(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
32595 000137 035624 _ JMP 26$ :GO TO 26$ IF ERROR 
035272 004737 056572 JSR PC ,DTASTS 3;GO VERIFY RESULTS OF DATA TRANSFER 
35276 000405 sted 15$ ;GO TO 15$ IF NO ERROR 
035300 000240 NOP RETURN HERE IF ERROR 
035302 104 EMT ;ERROR # DEFINED BY DTASTS SUBROUTINE 
35304 004736 JSR PC ,a(SP)+ =GO BACK FOR MORE ERROR CHECKS 
s2445 000137 035624 ~ JMP 26$ :GO TO 26$ IF ERROR 
035312 004737 044710 JSR PC,SECERR 3;GO CHECK FOR SECONDARY ERRORS 
35316 000405 BR 16$ -GO TO 16$ IF NO ERROR 
035320 000240 NOP “RETURN HERE IF ERROR 
035322 104000 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
035324 004736 | JSR PC,a(SP)+ G0 BACK FOR MORE ERROR CHECKS 
35326 000137 035624 JMP 26$ :GO TO 26% IF ERROR 
035532 16$: 
3093 2 
3094 s; CHANGE LOOP ADDRESSES 
3095 035332 012737 035342 001124 MOV #17$,$LPERR 
ey 035340 000410 RR 18$ :SKIP TO NEXT OPERATION 
3098 SS RARER AAAAKAAAEAAAAAAAAAARAARAAAEAAAAKRAAAAARAAEAKAARAARAARAARHEHEREE 
99 :LOOP #3 READ 
3100 
S100 035342 17$: 
3103 : PREPARE ao FOR READ OPERATION 
3104 035342 004737 037316 a see PRP sPREPARE DEVICE FOR TEST 
035346 154130 on 154130 : TASK DESCRIPTOR AS FOLLOWS: 
= SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘’SKI"’ OR 'PIP’’ IS SET 
: VERIFY RECALIBRATION 
0353590 000404 BR 18$ :GO TO 18$ IF NO ERROR 
035352 000240 NOP :RETURN HERE IF ERROR 
035354 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
035356 000137 035624 JMP 26$ :GO TO 26$ IF ERROR 
3105 03536 18$: | 
3106 
3107 zREAD DATA FROM DEVICE 
3108 035362 19$: 
3109 035362 012737 107446 001416 MOV #BUF TWO+4 , RMBAO : CHANGE BUS ADDRESS 
3110 035370 012737 000071 001412 MOV #RD!'GO,RMCS10 *READ DATA COMMAND 
3111 035376 012702 001553 MOV APUTINX,R2 >LOAD PUT REGISTER INDEX TABLE 
3112 035402 112722 000 MOVB #RMDA, (R2) + 
3113 035406 112722 000032 MOVB #RMOF , (R2)+ 
3114 035412 112722 000034 MOVB ARMDC, (R2)+ 
3115 035416 112722 000004 MOVB ARMBA, (R2) + 
3116 035422 112722 000002 MOVB ARMWC , (RZ) + 
3117 035426 112722 000000 MOVB #RMCS1,(R2)+ 
$115 035432 112712 000200 MOVB #200, (R2) 
3120 035436 004737 0435330 JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 





A — 
ee 
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035442 000404 BR 20$ :GO TO 20$ IF NO ERROR 
035444 000240 NOP “RETURN HERE IF ERROR 
035446 104000 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
035450 000137 035624 JMP 26$ :GO TO 26$ IF ERROR 

3121 035454 208: 

3123 =SETUP GET INDEX TABLE 19 READ ALL REGISTERS 

ies 035454 004737 042774 JSR PC,GETSTS -GO TO GETSTS SUBROUTINE 

3125 -WwAIT FOR COMMAND r0 COMPLETE 

iti 035460 004737 043672 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

3127 :GO READ STATUS FOR READ OPERATION 

3128 035464 004737 043060 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
035470 000404 BR 21$ =GO TO 21$ IF NO ERROR 
035472 000240 NOP “RETURN HERE IF ERROR 
035474 104000 EMT “ERROR # DEF INED BY GET SUBROUTINE 
035476 000137 035624 JMP 26$ *GO TO 26$ IF ERROR 

3129 035502 21S: 

3131 = CHECK FOR ERRORS DURING READ OPERATION 

3132 035502 004737 (44056 JSR PC PRIERR :GO CHECK FOR PRIMARY ERRORS 
035506 000405 BR *GO TO 22$ IF NO ERROR 
035510 000240 “RETURN HERE IF ERROR 
035512 104000 EMT “ERROR # DEFINED BY PRIERR SUBROUTINE 
035514 004736 JSR PC. a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
035516 000137 035624 | JMP 26$ -GO TO 26$ IF ERROR 

3133 035522 228: 

3134 035522 004737 056572 JSR PC DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
035526 000405 BR 23$ -GO TO 23$ IF NO ERROR 
035530 000240 NOP *RETURN HERE IF ERROR 
035532 104000 EMT : “ERROR # DEF INED BY DTASTS SUBROUTINE 
035534 004736 JSR PC, a(SP)+ =GO BACK FOR MORE ERROR CHECKS 
035536 000137 035624 JMP 26$ -GO TO 26$ IF ERROR 

3135 035542 oe 

3136 035542 004737 044710 JSR PC. SECERR :GO CHECK FOR SECONDARY ERRORS 
035546 000405 BR 24$ -GO TO 24% IF NO ERROR 
035550 NOP “RETURN HERE IF ERROR 
035552 EMT “ERROR # DEFINED BY SECERR SUBROUTINE 
035554 JSR PC, a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
035556 035624 a JMP 26$ *GO TO 26$ IF ERROR 
035562 042432 JSR PC, CMPBUF :GO COMPARE WRITE. READ DATA BUFFERS 

35566 .WORD BUFONE+4 =STARTING ADDRESS OF WRITE BUFFER 

035570 WORD BUF TWO+4 “STARTING ADDRESS OF READ BUFFER 
035572 BR 25$ :GO TO 25$ IF NO ERROR 
035574 NOP “RETURN HERE IF ERROR 
035576 EMT “ERROR # DEFINED BY CMPBUF SUBROUTINE 
035 000 035624 JMP 26$ *GO TO 26$ IF ERROR 

3139 035604 25$: | 

3140 035604 105237 001421 INCB — RMDAO+1 :ADVANCE TO NEXT TRACK 

3141 035610 123737 001421 001335 CMPB —s- RMDAO+1, LSTRK+1 “DONE ? 

3142 035616 101002 BHI 26$ “YES! ! 

3143 035620 000137 034660 JMP 3$ -TEST NEXT TRACK 

he 035624 | 268: 

3146 ; LL REO RRR EERE EER RRR RR ER EER eRe 


— me - ——— — -_—— —_—-— 
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:*TEST 25 READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE 
SRA 
035624 TST25: | 
035624 000004 SCOPE 7SCOPE CALL 
035626 000240 NOP sSTART OF TEST 
035630 012706 001100 MOV ASTACK,SP s INITIALIZE STACK POINTER 
035634 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS 
035640 013701 001466 - MOV TSTQUE ,R1 3 (R1) DEVICE BEING TESTED 
3167 035644 012737 000025 001226 MOV #25,$TESIN >: SET TEST NUMBER IN APT MAIL BOX 
3148 Br RR TTI TR Tete BOOST SOTO TOTO TOT TOTTI SOTTO TOTOTOTTOSSOTOT STOTT TOTO TN 
3149 ;LOOP #1 FORMAT,READ OFFSET,WRITE CHECK OFr SET IN BOTH DIRECTIONS 
pF 035652 1$: 
3152 ;PREPARE DEVICE FOR FORMAT OPERATION 
3155 035652 004737 057316 JSR PC,TSTPRP ;PREPARE DEVICE FOR TEST 
035656 154130 . WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
: VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWL EDGE 
=RECALIBRATE IF ae OR ‘PIP’ IS SET 
i ; VERIFY RECALIBRATION 
035660 000404 BR 2$ :GO TO 2$ IF NO ERROR 
035662 000240 NOP RETURN HERE IF ERROR 
035664 104000 EMT to TD # DEFINED BY TSTPRP SUBROUT INE 
$156 035666 000137 037006 JMP 28$ GO TO 28% IF ERROR 
3155 ;LOAD PARAMETERS AND GENERATE DATA BUFFER 
3156 035672 2$: : 
3157 035672 012737 O00000 001446 MOV - #0,RMDCO CYLINDER = 0 
3158 035700 012737 000000 001420 MOV #0 ,RMDAO : TRACK = 0, SECTOR = 0 
3159 035706 012737 106436 001416 MOV #BUF ONE , RMBAO BUFFER ADDRESS 
3160 035714 012737 176774 001414 MOV #~-258.*2,RMWCO ;WORD COUNT FOR 2 SECTORS (2°S COMP) 
3161 035722 012737 010000 001444 MOV #FMT16,RMOFO 3 316 BIT MODE 
3108 0357350 012737 000063 001412 MOV #WH!GO,RMCS10 “WRITE HEADER 
3164 ;VERIFY THAT SECTOR IS NOT BAD | 
035736 004737 040242 JSR PC ,BADSCT ‘: CALL BAD gee MODULE 
035742 000405 BR 3$ :GO TO 3$ IF NO ERROR 
035744 104401 070426 TYPE ,SCTMSG : TYPE BAD SECTOR MESSAGE 
035750 104000 EMT = ERROR # DEFINED BY BADSCT SUBROUTINE 
035752 000137 037006 JMP 28$ :GO TO 28% IF ERROR 
3165 035756 33: 
3166 035756 012737 072060 001174 MOV #ZEROS,STMPO ;DATA PATTERN 
3167 035764 012737 000001 001176 MOV #1,$TMP1 
$00 035772 004737 042174 JSR PC,GENBUF - 3TO GENERATE BUFFER FOR FORMAT 
3170 | ;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATION 
3171 035776 012702 001553 MOV APUTINX,R2 sBYTE ENTRY TABLE 
3172 036002 112722 000034 MOVB #RMDC, (R2)+ 
3173 0 112722 0 MOVB HRMDA, (R2) + 
3174 036012 112722 MOVB ,(R2)+ 
3175 03601 112722 000002 MOVB ARMWC , (R2)+ 
3176 036022 112722 000032 MOVB ARMOF , (R2) + 
3177 036026 112722 000000 MOVB #RMCS1, (R2)+ 


SEQ 0167 
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} 
| CZ7RMOBO RMOS/3/2 FCTNL TST 3 MACRO V04.00 
| T25 READ, WRITE CHECK MULTIPLE —_— IN OFFSET MODE SEQ 0168 
| 3178 036032 112712 000200 MOVB #200, (R2) ; TABLE TERMINATOR 
| 3179 036036 4$: 
3180 036036 004737 043330 JSR PC ,PuT 3;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
036042 000404 BR 5$ 3;GO TO 5$ IF NO ERROR 
| 036044 000240 NOP [RETURN HERE IF ERROR 
0 6 104000 EMT = ERROR # DEFINED BY PUT SUBROUTINE 
036050 000137 037006 JMP 28$ :GO TO 28$ IF ERROR 
sie 036054 S$: 
3183 :SETUP GET INDEX TABLE TO READ ALL REGISTERS 
3124 036054 004737 042774 JSR PC,GETSTS 3:GO TO GETSTS SUBROUTINE 
3185 at :WAIT FOR COMMAND TO COMPLETE 
3186 036060 004737 043672 JSR PC,TIMOUT 3;GO TO TIMOUT SUBROUTINE 
187 :GO READ STATUS FOR FORMAT OPERATION 
3188 036064 004737 043060 JSR PC,GET 3GO 7s yigeig + WITH GET SUBROUTINE 
036070 000404 BR -GO TO 6$ IF NO ERROR 
036072 000240 NOP «RETURN HERE IF ERROR 
036074 104000 EMT sERROR #4 DEFINED BY GET SUBROUTINE 
0360 000137 027006 JMP 28$ G0 TO 28$ IF ERROR 
3155 036102 6$: 
3191 VERIFY NO ERROR DURING FORMAT 
3192 036102 0047357 056572 JSR PC,DTASTS 7 3:GO VERIFY RESULTS OF DATA TRANSFER 
036106 000405 7$ 59 TO 7$ IF NO ERROR 
036110 000240 NOP :RE URN HERE IF ERROR 
036112 104000 EMT -cPROR # DEFINED BY DTASTS SUBROUTINE 
036114 4736 JSR PC ,a(SP)+ 360 BACK FOR MORE ERROR CHECKS 
3193 036116 000137 037006 JMP 28$ :GO TO 28% IF ERROR 
3194 s:MOV LOOP ADDRESSES TO NEXT OPERATION 
3195 036122 7$: 
S109 036122 012737 036144 001124 MOV #8$.,$LPERR sERROR LOOP ADDRESS 
3198 :LOCATE BUFFER ADDRESS AND WORD COUNT 
3199 036130 01273 177000 001414 MOV #~256.*2, ;TWO SECTORS 
3200 036136 012753 106436 001416 MOV ABUF ONE , RMBAO ;BUFFER ADDRESS 
3201 SIGIR UIEIISISIIAISIISIOISIIAII IOI IOI TOTO TOI TOTOTOT AT I TOTO SIAN 
320 : Loop 2 READ AND WRITE CHECK IN OFFSET MODE 
3203 036144 
: PREPARE DEVICE FOR READ OFFSET OPEATION 
3205 036144 004737 037316 JSR ~ 1 STPRP ;PREPARE DEVICE FOR TEST 
036150 154130 . WORD 4130 ; TASK DESCRIPTOR AS FOLLOWS: 
:SELEC T DEVICE & VERIFY DEVICE AVAILABLE 
= CLEAR CONTROLLER & SELECT DEVICE 
s VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
> RECALIBRATE IF ste: OR ‘PIP’' IS SET 
Aig ag RECAL IBRAT ION 
036152 000404 BR 9$ TO 9$ IF NO ERROR 
036154 000240 NOP “RETURN HERE IF ERROR 
036156 104000 EMT :ERROR # DEFINED BY TSTPRP SUBROUTINE 
i 000137 037006 JMP 28$ :GO TO 28% IF ERROR 


3206 036164 
3207 036164 


9$: 
10$: 


- ee — — a 
- - _--- -- - -—— - ~<. 


_—— RMO5/3/2 FCTNL TST 3 MACRO vO 


READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE 


READ at Ay 


036164 012702 001553 MO 
3210 036170 112722 MOVE 
3211 036174 112722 000034 MOVB 
036200 112722 000032 MOVB 
3213 036204 112722 000004 MOVB 
3214 036210 112722 000002 MOVB 
$215 036214 112722 000200 MOVB 
3217 036220 004737 043330 JSR 
036224 000404 BR 
036226 000240 NOP 
036230 104000 EMT 
036232 000137 037006 JMP 
3218 036236 012737 000015 001412 118: MOV 
3219 036244 012702 00155 MOV 
3220 036250 112722 000000 _ MOVB 
3221 036254 112722 000200 MOVB 
3223 036260 004737 043330 JSR 
036264 000404 BR 
036266 000240 NOP 
036270 104000 EMT 
036272 000137 037006 JMP 
3224 036276 128: 
3225 
3226 
nop 036276 004737 043672 
3228 036302 012737 000071 001472 MOV 
29 036310 012702 001553 | MOV 
036314 112722 000000 MOVB 
3231 036320 112712 000200 MOVB 
3233 036324 004737 043330 JSR 
036330 000404 BR 
036332 000240 NOP 
036334 104000 EMT 
036336 000137 037006 JMP 
3234 036342 138: 
3235 
3236 
036342 004737 042774 
3237 
3238 
036346 004737 043672 
3239 
240 
3241 036352 004737 043060 
036356 000404 BR 
036360 000240 NOP 
036362 104 EMT 
036364 000137 037006 IMP 
3242 
3243 
3244 036370 
3245 036370 004737 044056 JSR 


;WAiT a aac < TO COMPLETE 
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#PUTINX,R2 s;LOAD THE TABLE 
#RMDA, (R2) + 
ARMDC, (R2)+ 
HARMOF , (R2)+ 
#RMBA, (R2) + 
ARMWC, (R2) + 
#200, (R2)+ ; TABLE TERMINATOR 
PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
11$ : G0 TO 11$ IF NO ERROR 
RETURN HERE IF ERROR 
: ERROR # DEFINED BY PUT SUBROUTINE 
28S O TO 28% IF ERROR 
HOFFSET'GO, recsia” ;OF FSET COMMAND 
HPUTINX,R2 
#RMCS1, (R2)+ 
#200, (R2)+ 
PC,PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
12$ :GO TO 12$ IF NO ERROR 
= RETURN HERE IF ERROR 
sERROR #4 DEFINED BY PUT SUBROUTINE 
28S -GO TO 28% IF ERROR 


PC, TIMOUT 


ARD!GO,RMCS10 
NX,R2 
#RMCS1, (Re) + 


#200, (R2) 


PC ,PUT 
13$ 


28$ 


3GO TO TIMOUT SUBROUTINE 


;READ DATA COMMANDS 
TABLE INDEX 


; TABLE TERMINATOR 


‘= i gpg WITH PUT SUBROUTINE 
O 13$ IF NO ERROR 

RE TURN HERE IF ERROR 

“ ERROR # DEFINED BY PUT SUBROUTINE 

:GO TO 28% IF ERROR 


3; SETUP a INDEX TABLE TO READ ALL REGISTERS 


sWAIT FOR COMMAND TO COMPLETE 
JSR «—~-PC, TIMOUT 


PC,GETSTS 


:GO TO GETSTS SUBROUTINE 


;GO TO TIMOUT SUBROUTINE 


;READ STATUS FOR READ OFFSET OPERATION 
JSR PC,GET 7G 


io ERROR DURING READ OFFSET 


eo 


28$ 


PC, PRIERR 


O READ ah 1 ahd gS GET SUBROUTINE 


:GO TO 14% IF N 


;RETURN HERE IF ERROR 
‘EO TO # DEFINED a GET SUBROUTINE 
GO TO 28% IF ERROR 


3GO CHECK FOR PRIMARY ERRORS 


SEQ 0169 


LLL hes 

' a 
; 

! 


7 
3258 036460 
3259 


3260 
3261 036460 
036464 


004737 
154130 
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037006 
056572 


037006 
044710 


037006 


036460 


037316 


037006 


001553 
000006 
000032 
000034 
000002 
000200 
043330 
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15$: 


16$: 


17$: 
; CHANGE LOOP AD 
MOV 





15$ 
PC,a(SP)+ 
28$ 
PC.DTASTS 
16$ 


PC,a(SP)+ 
28$ 


PC,SECERR 
17$ 


PC,@(SP)+ 
28$ 


DRE 


mies. SLPERR 
19$ 


;PREPARE DEVICE FOR READ OPERATION 
ieee PC, TSTPRP 


BR 19$ 
NOP 
EMT 
JMP 28S 

19$: 

fl CHECK DATA IN OFFSET MODE 
MOV #PUTINX,R2 
MOVB ARMDA, (R2) +. 
MOVB HRMOF , (R2) + 
MOVB ARMDC , (R2) + 
MOVB #RMBA , (R2)+ 
MOVB HRMWC, (RZ) + 
MOVB #200, (R2) 
JSR PC PUT 
BR 21$ 


G0 TO 158 IF - ERROR 

[RETURN HERE IF ERROR 

SERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

;GO0 TO 38s IF ERROR 


3GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 16$ IF NO ERROR 


SRETURN HERE IF 


ERROR 
sERROR # DEFINED BY DTASTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
;GO TO 28$ IF ERROR 


+G0 CHECK FOR SECONDARY ERRORS 
NO ERROR 


ERROR 
sERROR # fy th BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 58S IF ERROR 


;TO NEXT OPERATION 


2S (RARE SASASASSAESES SELES SLASARARARR ER ER AR EER RRR SSSA SAR SRR SRSA SSS SS | 


{LOOP 3 WRITE CHECK OFFSET 


sPREPARE DEVICE FOR TEST 
;TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATICN 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF ‘'SkI'’ OR ‘PIP’’ IS SET 
; VERIFY RECAL IBRATION 
= GO TO 19$ IF NO ERROR 
;RETURN HERE IF ERROR 
= ERROR a gia BY TSTPRP SUBROUT I NE 
;GO TO 28$ IF ERROR 


; TABLE TERMINATOR 


3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 21$ IF NO ERROR 


SEQ 0170 


a — 
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«Te READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE SEQ 0171 


A ct pe 


036542 000240 NOP sRETURN HERE IF ERROR 
036544 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 

—_— 036546 000137 037006 JMP 28$ :GO TO 28$ IF ERROR 

3276 -SETUP OFFSET MODE FIRST | 

3277 036552 21$: 

3278 036552 012737 000015 001412 MOV MOF FSET!GO,RMCS10 s;OUTPUT BUFFER 

3279 036560 012702 001553 MOV APUTINX,R2 

3280 036564 112722 000000 MOVB #RMCS1,(R2)+ 

Ses 036570 112712 000200 MOVB #290, (R2) 

3283 036574 004737 043330 JSR PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
036600 0004 BR 223 :GO TO 22$ IF NO ERROR 
036602 000240 NOP “RETURN HERE IF ERROR 
036604 104 EMT sERROR # DEFINED BY PUT SUBROUTINE 
036606 000137 037006 JMP 28$ :GO TO 28$ IF ERROR 

esac 036612 223: 

286 :WAIT FOR COMMAND " COMPLETE 

3287 036612 004737 043672 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

3288 sEXECUTE WRITE CHECK DATA COMMAND 

3289 036616 012737 000051 001412 MOV #WCD!'GO,RMCS10 

3290 036624 012702 001553 MOV #PUTINX,R2 

3291 0366350 112722 000000 MOVB #RMCS1, (R2)+ 

3292 036634 112712 000200 MOVB #200, (R2) 

3294 036640 004737 043330 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
036644 000404 BR 23$ GO TO 23$ IF NO ERROR 
036646 000240 NOP “RETURN HERE IF ERROR 
036650 104000 EMT eT TO # DEFINED BY PUT SUBROUTINE 
036652 000137 037006 JMP 28$ -GO TO 28% IF ERROR 

$822 036656 238: 

3297 : SETUP te INDEX TABLE TO READ ALL REGISTERS 

3298 036656 004737 042774 PC,GETSTS :GO TO GETSTS SUBROUTINE 

3299 :wAIT FOR COMMAND vv COMPLETE 

3300 036662 004737 043672 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

3301 sREAD STATUS FOR WRITE CHECK OFFSET OPERATION 

3302 036666 004737 043060 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
036672 0004 BR :G0 TO 24$ IF NO ERROR 
036674 000240 NOP RETURN HERE IF ERROR 
036676 104000 EMT = ERROR # gta BY GET SUBROUTINE 
036700 000137 037006 JMP 28% :GO TO 28$ IF ERROR 

Se0z 036704 248: 

3305 : CHECK ERROR DURING WRITE CHECK OFFSET OPERATION 

3306 036704 004737 044056 JSR PC.PRIERR :GO CHECK FOR PRIMARY ERRORS 
036710 000405 3R -GO TO 25$ IF NO ERROR 
036712 000240 NOP :RETURN HERE IF ERROR 
036714 104000 EMT : ERROR : ry ge BY PRIERR SUBROUTINE 
036716 004736 JSR PC, ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
0367 000737 037006 JMP 28$ -G0 TO 28% IF ERROR 

3307 036724 25$: | 

3308 036724 006737 056572 JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 


CZRMOBO RM95/3/2 FCTINL IST 3 
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—————— 


40 
3309 036744 
3310 3 dea 


3316 037006 


—— <= eee er ees 


36 
000137 


037006 
044710 


037006 
000200 


000200 
036122 
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263%: 


001444 
001444 
28$: 
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26$ 
PC,a(SP)+ 
28$ 


PC. SECERR 
27$ 


PC,a(SP)+ 
28$ 


#OF D ,RMOFO 
28$ 
#0FD ,RMOFO 
7$ 


+ G0 TO 26$ IF NO ERROR 


E IF ERROR 
y Tae ee BY DTASTS SUBROUTINE 
7G FOR MORE ERROR CHECKS 
:G0 TO 58 IF ERROR 


+ GO CHECK FOR SECONDARY ERRORS 
TO NO ERROR 


IF ERR 
; ERROR 4 Ppt BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 28% IF ERROR 


: IN FORWARD DIRECTION OF OFFSET ? 
:BRANCH IF SO 

;SET TO FORWARD DIRECTION 

i CHANGE OFFSET DIRECTION TEST AGAIN 


em em re me re a eee 


COVOWDWONAULSWNHH"OWDO VNOAUEWH 


OOoOo00000° 
WAN ANWNANWAA 
SN ™~ 
© 
™m 
Nm 


037044 


04 
37110 


037130 
037130 


037150 


037214 
037214 


037220 
037222 


012737 


013746 


104405 
005037 
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001466 
900002 
001466 


037262 
001470 


001116 


0 
100000 


037112 


007 230 
001126 
037152 
001126 


001126 
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001466 


i> 


001230 


E 14 
E 14 


-SBTTL END OF SUB-PASS ROUTINE 


- THIS IS THE END OF SUB-PASS ROUTINE. THIS ROUTINE IS USED TO 


“SELECT THE NEXT DEVICE FOR TEST. 


E AR 
:TO TEST, EXIT IS MADE TO ‘SEOP* ROUTINE. OTHERWISE, RETURN 


:1S MADE TO ‘SHUT’ ROUTINE. 

SCOPE 

NOP 

MOV TSTQUE ,RO 
#2,R 

MOV RO, TSTQUE 
(RO) 
BEQ 1$ 

1$: MOV 


SEOSP: 


-SBTTL END OF PASS ROUTINE 


SHUT iJ 
#TSTQUE+2, TSTQUE 
; TEST QUE TABLE 


:GET POINTER TO TSTQUE 
:ADJUST POINTER TO pol DEVICE 
+ SAVE POINTER TO TSTQUE 

ANY MORE DEVICES FOR TEST ? 


“BR IF 


NO 
UMP TO ‘SHUT’ ROUTINE 
; INITIALIZE POINTER TO FIRST DEVICE IN 


5 LEAR AAA AEEEEKEAKEREKEAAKEAKEAERAEAKAERAEREARAEEEAEKEEER HE 

:* INCREMENT THE PASS NUMBER (S$PASS) 

>* TYPE “END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT Yyyyy'’ 
s*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 


>*IF THERES A MONITOR GO 10 IT 


7-2£P0 THE TEST NUMBER 

+3 ZERO THE NUMBER OF ITERATIONS 
: INCREMENT THE PASS NUMBER 

::DON'T ALLOW A NEG. NUMBER 


sz¥es 
RESTORE COUNTER 


3: TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


3: SAVE SPASS FOR TYPEOUT 
:; TYPE PASS NUMBER 
::GO TYPE--DECIMAL ASCII WITH SIGN 
73 SEE IF ANY ERRORS THIS PASS 

es IF NO ERRORS TO REPORT 

: TYPE ASCIZ STRING 

“GET OVER THE je 
SINCE LAST REPORT / 


:;SAVE SERTTL FOR TYPEOUT 
-2 TOT AL NUMBER OF ERRORS 
:GO TYPE--DECIMAL ASCII WITH SIGN 


>*IF THERE ISN'T JUMP TO SHUT 
SEOP: 

NOP 

CLR STSTNM 

CLR STIMES 

INC $PASS 

BIC #100000, $PASS 

DEC (PC) + :: LOOP? 
S$EOPCT: .WORD 1 

BGT $DOAGN 

MOV (PC) +,a(PC)+ 
SENDCT: WORD 1 

SEOPCT 

TYPE ,65$ 

R 64$ 
sig* ASCIZ <12><15>/END PASS &#/ 

MOV $PASS ,- (SP) 

TYPDS 

ST SERTTIL 

BEQ $GT42P 

TYPE ,67$ 

BR 66$ 
z36795 -ASCIZ / TOTAL ERRORS 

MOV SERTTL,-(SP) 

TYPDS 

CLR SERTTL 


::CLEAR ERROR TOTAL 


SEQ 0173 


CZRMOBO RMO5/3/2 FCTNL 
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037226 104401 


© 
IN 
™~ 
Nm 
Ww 
Nm 


037256 


21 
22 037262 005737 
3 037266 001002 


00 
29 0373512 000137 


eee ene 


TST 3 


377 
001326 


007670 
000042 


037044 
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000 


$GT42P: 
$GET42: 


SENDAD : 


$DOAGN: 


$RINAD: . 
SENULL : 


SHUT: 


1$: 


2$: 


$DOAGN 
PC, (RO) 


atPC)+ 


ths CARRIAGE RETURN, LINE FEED 
T MONITOR ADDRESS 

> BRANCH IF NO MONITOR 

;;CLEAR THE WORLD 

:;GO TO MONITOR 
E ROOM 


= FOR 

cM TY? 

7 RETURN 

NULL CHARACTER STRING 


;WAS CONTROL C FLAGGED ? 
;BR IF YES 

; CONT INUE 

:ANY MONITOR PRESENT ? 
:BR IF YES 

;GO TO START 

:FUDGE NO DRIVES IN MAP 
;RETURN TO $EOP 


SEQ 0174 


G 14 
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TEST PREPARATION MODULE SEQ 0175 


ee em em — + cn nn ee 


.SBTTL TEST PREPARATION MODULE 
z > THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST, 
4 : REPORTING AN ERROR TO THE USER IF AN ERROR IS’ DETECTED. THE USER 
5 > SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES 
¢ : USING SUBROUTINES. 
8 s CALL: 
4 - JSR PC, TSTPRP 
10 : . WORD NNN TASK/VERIFY DESCRIPTOR 
17 s BR ?? RETURN HERE IF NO ERROR 
12 e NOP RETURN HERE IF ERROR 
7 ; ERROR ERROR DEFINED BY MODULE 
15 > TASK/VERIFY DESCRIPTOR 
3 . Sif 15 = 7 SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 
18 : BIT 14 = 1 CLEAR CONTROLLER AND ny DEVICE 
19 : BIT 13 (RESERVED FOR DRIVE CLEAR 
$9 ; Bit i? = 7 PACK ACKNOWLEDGE IF VOLUME NOT VALID 
22 . Sit 11 = 1 RECALIBRATE IF POSITIONING IN PROGRESS 
25 : BIT 10 
24 . BIT 9 
25 5 | Seep grenanamiaes 
26 : BIT 8 
e7 ‘ BIT 7 
$s ; B1T 6 = 17 VERIFY CONTROLLER CLEAR OPERATION 
30 : BIT 5 (RESERVED FOR DRIVE CLEAR) 
31 ‘ Bit 4 =.7 VERIFY PACK ACKNOWLEDGE 
6 : Sit. 5: = 7 VERIFY RECALIBRATION 
34 . BIT 2 
35 , ; BIT 1 
36 : BIT 0 
37 
6 037316 TSTPRP: 
40 :STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL 
41 037316 017637 O00000 040236 MOV a(SP),5 s;STORE DESCRIPTOR 
42 037324 062716 000006 ADD Se. (SP) =MOVE SP TO sty ERROR CALL 
43 037330 105076 000000 CLRB a(SP) ;CLEAR ERROR CAL 
rf: 037334 162716 9000004 SUB #4, (SP) -MOVE SP TO NO ERROR RE TURN 
46 037340 004737 042774 JSR PC,GETSTS :;SETUP TO READ ALL REGISTERS 
47 037344 004737 043060 JSR PC,GET -GET RMER2 
48 037350 0004117 BR 15$ <BR IF NO ERROR DETECTED 
49 037352 000401 BR 10$ :GET OVER ERROR NUMBER 
50 037354 . WORD >ERROR DEFINED BY GET SUBROUTINE on 
51 037356 062716 000004 10$: ADD #4, (SP) “XFER ERROR TO USER AND 
S2 037362 113776 037354 000000 MOVB 10$-2,a(SP) *GET ERROR NUMBER. 
a 037370 000137 040226 JMP 400$ 
2 037374 013737 001400 040240 15$: MOV RMERZ!1,505$ :GET RMER2 AND SAVE FOR LATER 
57 LUE E ARTETA EE REET ETE RT AAA ARERR ERATE EKER RE RHEE OS 


EN A AE A A 


58 
59 
60 


61 
62 
63 
64 


037402 
037406 


937410 


68 037434 


BAW OSB NSAP AU ODO NO 


037440 
037440 
037446 


037450 


& 


ae 
MOO 


37572 
375 


0 
037572 


037600 


037602 


032737 
001451 


004737 


000137 


032737 
001451 


004737 


000137: 


004757 


032737 
007503 


004737 
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040236 


050762 


040226 


040000 


052434 


000004 
037460 
040226 


000100 


043060 


000004 
037520 
040226 


052552 


000004 
037550 
040226 


010000 


04 3060 
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000000 


040256 


000000 


040236 


000000 


000000 


040236 


H 14 
15-1 


zSELECT DEVICE AND VERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK 
TST 500$ sSELECT DEVICE?? 


BPL 30$ sNO!! 
JSR PC DEVSEL :GO SELECT DEVICE 
BR 30$ “NO ERROR = CONTINUE 
BR 20$ 
-WORD © :ERROR NUMBER FROM DEVSEL 
20$: ADD #4, (SP) “TRANSFER ERROR TO USER 
MOVB  20$-2,a(SP) 
jMP 400$ 
Sf REAR AEAAAAARAAERAAARAEATARARARARRARAEARARRARAAAAAAARAAARAARREEARKHAESE 
gCLEAR CONTROLLER IF BIT 14 IS SET IN TASK 
"ry #B1T14,500$ :CLEAR CONTROLLER?? 
BEQ 120$ “NOI! 
JSR PC. CNTCLR :GO CLEAR CONTROLLER 
BR 60$ “CONTINUE - NO ERROR 
BR 50$ 
40$: “WORD 0 : ERROR NUMBER FROM CNTCLR 
50$: ADD #4, (SP) “ TRANSFER ERROR TO USER 
MOVB  40$,a(SP) 
JMP 400$ 


ete eee eee eARASAARA SAAR RAARRRESR SRR RRA SRR RS RAR RR RRR RRS RRS RARE SSS SD 


iVERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK 


BIT #B1T6,500$ sVERIFY?? 

BEQ 120% sNO!! 

JSR PC,GET :GO GET STATUS 

8 aoe ;NO ERROR GETTING STATUS 
70$: -WORD 0 ;ERROR FROM GETTING STATUS 
80$: ADD #4, (SP) ; TRANSFER ERROR TO USER 

MOVB 70$,a(SP) 

JMP 400$ 
90$: JSR PC,CLRSTS ;GO VERIFY STATUS CLEAR 

BR 120$ ;NO ERROR IN CLEAR 

BR 110$ F 
100$: -WORD QO ;ERROR IN STATUS CLEAR 
110$: TST (SP) + :STRIP RETURN ADDRESS TO 

ADD 44, (SP) ; SUBROUTINE AND TRANSFER 

MOVB 100$,a(SP) ;ERROR TO USER 

JMP 400$ 


WEARER ESESSSLASCASEEL SLE SESAS SEER SRR RS SSES ARR RRR RRR ARRAS AR ARR SAEED: 


“EXECUTE PACK ACKNOWLEDGE IF 81712 SET IN TASK AND VOLUME IS 
sNOT VALID . 


120$ 
BIT #B1T12,500$ 
BEQ 2405 


JSR 


sPACK ACKNOWLEDGE ?? 
sNO!! 


PC .GET 


A ee 


037714 
037716 


037722 
037730 


037732 
037736 


037756 


037760 
037764 


WR O O®NOAUES WN 0 OONSG NF WR-O0O@aNeD WAP Steet ot =@OOENAALP WO O@NO 


Ma Bee ee Se Bee oes EES Se eS AA WADIA IPSNRDNGAINIPONAS 2 — Ss 
© 
Ww 
™~N 
~s 
x 
&* 


el el lt elt el ee el ee ee ee ed ee dd td od = 8 3 + 3 Fo 3 st I mk Be ed oo od od oe sw * wt ait 
—OoO 


000471 
090401 
000000 
062716 
113776 
000137 


032737 
001063 


000544 
004737 


032737 
001427 


000000 
062716 
113776 


032737 
001505 
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000004 
037612 
040226 
000100 


043330 


000004 
037700 


043672 


000020 


043060 


000004 


037742 


053432 


000004 
037770 


004000 


04 3060 
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000000 


040236 


000000 


000000 


040236 


130$: 
140$: 


150$: 


160$: 
170$: 


180$: 


“VERIFY PACK ACKNOWLEDGE 
BIT #BI 


190$: 
200$: 


210$: 


220$: 
230$: 


JSR 


BEQ 
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150$ 3NO ERROR GETTING RMDS 
a 
#4,(SP) ; TRANSFER ERROR TO USER 
130$,a(SP) 
400$ 
#VV.RMDSI 31S VOLUME VALID?? 
240$ sVES!! 
MEDENB zCLEAR MEDIA ENABLE 
#PAKACK 'GO,RMCS10 ;LOAD PACK ACK COMMAND 
#RMCS1,PUTINX SETUP REGISTER INDEX TABLE 
#200, PUTINX+1 
PC PUT 3GO WRITE COMMAND 
i zNQ ERROR LOADING REGISTER 
0 ;ERROR FROM PUT SUB 
#4, (SP) : TRANSFER ERROR TO USER 
160$,a(SP) 
400$ 
PC,TIMOUT s;WAIT FOR COMMAND TO COMPLETE 
eee eEaEe SE SSASASASASESASAARSASAAARASARA SSA SAEA RSA SAR AA ASA SASA RAR ASRASAASAASSASAASA SAAS SE S | 
'F MBIT4 SET IN TASK 

74,5008 VERIFY PACK ACKNOWLEDGE ?? 
240$ zNO!! 
PC,GET :GO GET STATUS 
464 — gNO ERROR GETTING STATUS 
0 ERROR FROM GET SUB 
#4,(SP) : TRANSFER ERROR TO USER 
190$,a(SP) 
4008 
PC ,ACKSTS :GO CHECK ACKNOWLEDGE 
240$ :NO ERROR 
230$ 
0 :PACK ACKNOWLEDGE ERROR 
(SP) + s;STRIP RETURN TO SUB AND 
#4, (SP) : TRANSFER ERROR TO USER 
220$,a(SP) 
400$ 


WERE SSSSAESASES SALAS AESASER SRR SRR ARERR RA RARAR ARRAS RRR RRS RARE SSS S| 


*RECALIBRATE DRIVE IF BIT 11 IS 


sOR "PIP’’ IS ACTIVE. 
240$: 


250$: 


BIT 
BEQ 


JSR 
BR 


BR 
. WORD 


#B1T11,500$ 
410$ 


SET IN TASK AND ‘'SKI*' IS SET 
;RECAL IBRATE?? 

sNO?? 

:GO GE 


T RMDS 
;NO ERROR GETTING RMDS 
;ERROR FROM GET SUB 


CZ7RMOBO RMOS/3/2 FCINL TST 3 


TEST PREPARATION MODULE 


172 
73 


~N 
we 


ek eed eed od od 
SY NN NN 
O@onNoO 


QGESERASLSSEVRARAVSS 


GO™w 


SSe 


09 
210 


mrmnsmonsrnr nor 
— — - 


040032 
040036 
040044 


040134 
0401 56 


040142 
040150 


040152 


062716 
113776 
000470 
032737 


001004 
032737 
001462 


012737 


004737 


0327357 
001430 


000004 
040030 
040000 
020000 


000007 


043530 
000004 
040120 


043672 


000010 


04 3060 


000004 


040162 . 


054226 


000004 
040210 
000002 


MACRO V04.00 


000000 


040240 
001350 


000000 


040236 


000000 


000000 


260$: 


2708: 


280$: 


2908: 


300$: 
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JSR 


#4,(SP) 
250$.,a(SP) 
400$ 
#SK1,505$ 
#PIP,RMDSI 
410$ 


#R=CAL!GO,RMCS10 
ARMCS1 ,PUT INX 
#200, PUT INX+1 


PC,PUT 
300$ 
290$ 


#4, (SP) 
290$-2 ,a(SP) 
400$ 


PC. TIMOUT 


; TRANSFER ERROR TO USER 


sWAS SKI SET ? 


YES, GO RECALIBRATE 


“1S PIP ACTIVE?? 
“NO! ! 


;LOAD RECALIBRATE COMMAND 


;AND REGISTER INDEX 


;GO ISSUE RECALIBRATE 
;NO ERROR 


;ERROR IN REGISTER TRANSFER 
; TRANSFER ERROR TO USER 


;WAIT FOR COMPLETION 


We ete e eee ERRASSRASARSRRRRR RRR AS ASRS ARERR RRS RR RARER SR RRS ARR SSS SS | 


: VERIFY RECALIBRATE IF BIT 3 SET 
BIT #B 


310$: 
320$: 


330$: 


340$: 
350$: 


400$: 
410$: 


500$: 
505$: 


BEQ 
JSR 
BR 


PC,GET 
330$ 

320$ 

0 

#4, (SP) 
310$.a<SP) 
400$ 

PC .RCLSTS 
410$ 

350$ 

0 

(SP)+ 

#4, (SP) 
340$,a(SP) 
#2, (SP) 

PC 


0 
0 


IN TASK 
; VERIFY RECAL IBRATE?? 
sNO!! 


:GO GET STATUS 
;NO ERROR GETTING STATUS 


;ERROR FROM GET 
; TRANSFER ERROR TO USER 


:GO CHECK RECALIBRATE 
;NO ERROR DURING RECALIBRATE 


7ERROR DURING RECALIBRATE 
;STRIP RETURN TO SUB AND 

; TRANSFER ERROR TO USER 
:MOVE SP BACK BEFORE ERROR 
;RETURN TO USER 


; TASK/VERIFY DESCRIPTOR 
> CONTAINS RMER2 


SEQ 0178 


ee ee eee emnqneess 


CZ7RMOBO RMOS5S/3/2 FCINL TST 


MN 
WN $$ O OW NAUSWPRY —2OWOWNOAUPWPR -a 


335 040242 


56 040314 


BAD SECTOR MODULE 


062716 
105076 
162716 


005737 


103370 


012737 


000006 
000000 
000006 


001512 
041542 


001412 
000002 
000046 


000003 042160 


K 
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1064 36 


14 
16 


-SBTTL BAD SECTOR MODULE 


:THE MODULE IS INTENDED TO BE CALLED PRIOR ee CALLING THE BUFFER 
:GENERATOR SUBROUTINE, AND PRESERVES THE ‘PUT BUFFER’ SO THAT THE 
:ODERATIONS ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT 


:THE MODULE RETURNS TO THE CALLING TEST WITH THE APPROVED OR ASSIGNED 
:SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS ‘‘ASNDA'' AND ‘‘ASNDC’’ 
:SO THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF “THE PUT BUFFER. 


:THE BAD SECTOR MODULE PERFORMS TWO MAJOR FUNCTIONS: 
; (1) RECOVER THE BAD SECTOR FILES AND 
: (2) APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION IN 
: THE BAD SECTOR FILES CR ASSIGN A NEW SECTOR IF THE ONE 
: ELECTED IS NOT AVAILABLE FOR USE. 


; INF ORMAT ION REQUIRED BY THE MODULE INCLUDES: 
(1)  .RMDCO - THE DESIRED CYLINDER 
(2) -RMDAO = THE TRACK AND SECTOR ADDRESS. 
(3)  .RMWCO - THE WORD COUNT, 
(4) .RMCS10 - THE COMMAND, 

(5) .JRMOFO - THE FORMAT MODE 


e s v * s a ] s 
Co 
> 
ed 
co 


JSR PC ,BADSCT ;CALL SUBROUTINE 
BR 223 [RETURN HERE IF NO ERROR 
TYPE MESSAGE >RETURN HERE IF THE BAD SECTOR FILE 
: : CANNOT BE RECOVERED. 
: ERROR N :THE EMT OFFSET NUMBER 'N' IS DEFINED 
; : :BY BAD SECTOR MODULE. 
BADSCT 
ADD #6, (SP) ;CLEAR ERROR NUMBER IN USER'S 
CLRB =a SP) :ERROR CALL. 
SUB —s«#6, (SP) 


; TEST ‘MEDIA ENABLE*’ TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES 
SHAVE BEEN RECOVERED. 
TST MEDENB sHAS BAD SECTOR FILES BEEN RECOVERED ? 
BEQ :BR IF NO 
:YES, BAD SECTOR FILE IS AVAILABLE 


1$ 
JMP 54% 
;RECOVER THE MANUFACTURES ee BAD SECTOR Eis FROM CYLINDER = 822., 

4 AND RMOS = 18.). ALSO, SAVE THE USER'S 


/ 
7 TRACK = LAST TRACK (RMO2/35 = 
iPUT BUFFER 


MOV RO,-(SP) ;sPUSH RO ON STACK 
CLR RO ;START WITH RMCS1 
2$: MOV PUTBUF (RO), BuF F ER(RO) 
ADD #2,R0 ADVANCE TO NEXT BUFFER POSITION 
CMP #46 RO [END OF BUFFER 
BHIS 2$ :NO 1! 


ER INDEX TABLE 


3SET RETRY COUNT AND LOAD PUT BUFFER AND REGIST 
FIRST (3 SECTORS) 


3 SETUP PARAMETERS TO READ SKIP SECTOR FILE 
MOV #3,68% ;RETRY COUNT 


SEQ 0179 


ee = 


“a saoonooase 
Hi MOOS RAR ND 


57 040322 
58 30 


62 
63 040360 
64 040364 


CZ7RMOBO RMO5/3/2 FCTNL 
BAD SECTOR MODUL 


OH 3-==-=0 COSC0OD Mm 
se el eh ee ee ee ee ed — —) sd 


000137 
013737 


012737 


TST 3 


001466 
001334 
177376 
010000 
110446 
001553 
000006 
000034 
000002 


000032 
000004 


000000 
000200 


042774 
043060 


000006 
040436 
041246 


001400 


000011 
0433350 


000006 
040502 
041246 


043672 
043060 


000006 
040536 
041246 


055770 


000006 
040566 
041246 
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001446 


001444 
001416 


000000 
042172 


001412 


000000 


000000 


000000 


#822. ,RMDCO SIRED CYLINDER = 


; DESIRE 822. 
MOV LSTRK,RMDAO sSTARTING LAST TRACK, SECTOR = 0 
MOV #-258.,RMWCO sa 4 420 WORDS (2°S COMP) 
MOV #FMT16,RMOFO 7:16 BIT FORMAT 
MOV AMFGFIL,RMBAO ;POINT TO MANUFACTURES FILE BUFFER 
MOV #PUTINX,RO ;RO POINTS TO REGISTER INDEX TABLE 
MOVB #RMDA, (RO) + 
MOVB C,(RO)+ 
MOVB ARMWC , (RO) + 
MOVB #RMOF , (RO) + 
MOVB ARMBA , (RO) + 
MOVB #RMCS1, (RO) + 
MOVB #200, (RO) + 
MOV (SP) +, RO :zPOP STACK INTO RO 
Yad GET INDEX TABLE FOR READING STATUS 
JSR PC,GETSTS ;SETUP GET INDEX REGISTER FOR STATUS 
JSR PC,GET ;GET REGISTERS 
BR 5$ “BR IF NO ERROR 
BR 4$ ; JUMP OVER ERROR NUMBER 
-WORD QO sERROR DEFINED BY GET SUB 
4$: ADD #6, (SP) :XFER ERROR TO USER AND 
MOVB 4$-2,a(SP) ;GET ERROR NUMBER. 
JMP | 42% 
5$: MOV RMER21,735$ ;GET RMER2 AND SAVE FOR LATER 
:CLEAR THE DEVICE USING DRIVE CLEAR COMMAND 
MOV #DRVCLR!GO,RMCS10 :LOAD COMMAND IN PUT BUFFER 
JSR PC ,PUT s OUTPUT COMMAND 
BR 8$ *RETURN HERE IF NO P aaa 
BR 7$ :GET AROUND ERROR # 
6% -WORD OQ ;ERROR # GOES HERE 
7$ ADD #6, (SP) “MOVE SP TO USERS ERROR CALL 
MOVB 6$,a(SP) =MOVE ERROR NUMBER TO USER 
JMP 42$ 
8$ JSR PC, TIMOUT :WAIT FOR COMPLETION 
JSR PC ,GET :GO GET STATUS 
BR 11$ RETURN HERE 1 as ERROR 
BR 10$ :GET AROUND ERR 
-WORD 0O * ERROR # GOES HERE. 
10$ ADD #6, (SP) “MOVE SP TO USERS ERROR CALL 
MOVB 9$,a(SP) s;MOVE ERROR # TO USERS ERROR CALL 
JMP 42$ 
11$ JSR PC,DRVSTS :GO VERIFY DRIVE CLEAR COMMAND 
BR 14$ ;RETURN HERE IF NO ERROR 
BR 13$ -GET AROUND ERROR 
12$: -WORD 0O :ERROR # GOES HERE 
13$: TST (SP) + STRIP RETURN TO 
ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
— meal -MOVE ERROR 4 TO USER CALL 
J 


_ CZRMOBO RMO5/3/2 FCTNL 
| BAD SECTOR MODULE 


a 


WWNWWPRIYPONON NNN NON -@ @ @ @ eo 
WR —O CONAUSWR-OVOnNAUSD 


040716 
20 


00 
041004 


oo S 
—~ 
HOLM 


WHO ODONAUIS WN 0 ODMNOU SWRA -ODONAU 
SSSLLLAE SLLLL 
AREAS 


Ww 


NE teh ti Oper et tt tee tte at Lae ee teh Se eet yt 
OOONO UD 
—, 


032737 
001052 


012737 
737 


032737 
001004 
032737 
001452 
012737 
004737 
000411 
000401 
000000 
062716 
113776 
000137 


004737 
004737 
0004 


11 
000401 
000000 


062716 
113776 
000137 


TST 3 


000100 


000023 
043330 


000006 
040636 
041246 
043672 
043060 


000006 
040672 
041246 


053432 


041246 


040000 
020000 


000007 
043330 


000006 
041002 
041246 


043672 
043060 


000006 
041036 
041246 
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; ISSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET 


Is 
14$: 
001350 BIT AVV,.RMDSI 31S VV RESET ?? 
BNE 23$ 3NO !! 
001412 MOV #PACACK!'GO,RMCS10 ;LOAD COMMAND 
JSR PC ,PUT ;GO PUT COMMAND TO DRIVE 
BR 17$ sRETURN HERE IF NO OUTPUT ERROR 
BR 16$ ;GET AROUND ERROR # 
15$: . WORD 0 ;ERROR # GOES HERE 
. 16$: ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
000000 MOVB 15$,a(SP) sMOVE ERROR # TO ERROR CALL 
JMP 42$ 
17$: JSR PC, TIMOUT ;WAIT FOR COMPLETION 
JSR PC,GET ;GO GET STATUS FOR PACK ACK 
BR 20$ ;RETURN HERE IF NO ERROR 
BR 19$ :GET AROUND ERROR # 
18$: -WORD 0 :ERROR # GOES HERE 
19$: ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
000000 MOVB 18$,a(SP) sMOVE ERROR # TO CALL 
JMP 42$ 
20$: JSR PC,ACKSTS :GO VERIFY ACKNOWLEDGE STATUS 
BR 23$ ;RETURN HERE IF NO ERROR 
BR 22$ :;GET AROUND ERROR # 
21$: . WORD 0 sERROR # GOES HERE 
223: TST (SP) + :STRIP RETURN TO SUBROUTINE 
. ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
000000 MOVB 21$,a(SP) :MOVE ERROR # TO USERS ERROR CALL 
JMP 42$ 
a THE DRIVE IF ‘'SKI** OR ‘PIP IS SET 
042172 BIT #SK1,735$ sWAS SKI SET ? 
BNE sYES, GO RECALIBRATE 
001350 BIT #PIP,RMDSI! sIS PIP SET ?? 
BEQ 32$ zNO !! 
001412 248: MOV MRECAL !'GO,RMCS10 ;LQAD RECALIBRATE COMMAND 
JSR PC PUT ;PUT THE RECAL COMMAND 
BR 2 sRETURN HERE IF NO ERROR 
BR 25$ ;GET AROUND ERROR 4 
.» WORD :ERROR # GOES HERE 
25$: ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
000000 MOVB 25$-2,a(SP) :MOVE ERROR # TO USERS CALL 
JMP 42$ 
26$: JSR PC, TIMOUT sWAIT FOR RECALIBRATE TO COMPLETE 
JSR PC,GET :GO GET RECAL STATUS 
BR 29$ sRETURN HERE IF NO ERROR 
BR 28 :GET AROUND ERROR # 
27s: - WORD 0 :ERROR # GOES HERE 
28$: ADD #6, (SP) »MOVE SP TO USERS ERROR CALL 
600000 boy ch al sMOVE ERROR TO USERS CALL 
J 


SEQ 018) 
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| CZRMOBO RMOS/3/2 FCINL TST 3 
| BAD SECTOR MODULE SEQ 0187 
| 171 041056 004737 054226 29$: JSR PC,RCLSTS ;GO VERIFY RECALIBRATE STATUS 
| 172 041062 000412 BR 32$ ;RETURN HERE IF NO ERROR 
| 173 041064 000401 BR 31$ :GET AROUND ERROR # 
| 174 041066 30$: .WORD 0 ERROR # GOES HERE 
175 041070 005726 315: TST (SP) + :STRIP RETURN TO SUBROUTINE 
176 041072 062716 000006 ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
177 041076 113776 041066 000000 MOVB 30$,a(SP) :MOVE ERROR # TO USERS CALL 
178 041104 000137 041246 JMP 42S 
180 renee gREAD THE SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADER AND DATA 
182 041110 012737 000073 001412 MOV #RH'GO,RMCS10 ;LOAD READ HEADER AND DATA COMMAND 
183 041116 004737 043330 JSR PC PUT :PUT COMMAND 
184 041122 000411 BR 35$ :RETURN HERE IF NO ERROR 
185 041124 000401 BR 34$ :GET AROUND ERROR # 
186 041126 33$: .WORD 0 :ERROR # GOES HERE 
187 041130 062716 000006 34$: ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
188 041134 113776 041126 000000 MOV8 33$,a(SP) sMOVE ERROR # TO USERS ERROR CALL 
bo 041142 000137 041246 JMP 42$ 
191 041146 004737 043672 35$: JSR PC, TIMOUT :WAIT FOR READ OPERATION TO COMPLETE 
192 041152 004737 043060 JSR PC,GET :GO GET STATUS FOR READ OPERATION 
193 041156 000411 BR 38$ :RETURN HERE IF NO ERROR 
194 041160 000401 BR 37$ :GET AROUND ERROR # 
195 041162 000000 36$: -WORD 0 ERROR # GOES HERE 
196 041164 062716 000006 373: ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
197.041170 113776 041162 000000 MOVB 36$,a(SP) -MOVE ERROR # TO CALL 
he 041176 000137 041246 SMP 42$ : 
200 041202 004737 056572 388: JSR PC,DTASTS :GO VERIFY RESULTS OF READ OPERATION 
201 041206 000412 BR 41$ -RETURN HERE IF NO ERROR 
202 041210 000401 BR 40$ :GET AROUND ERROR # 
203 041212 000000 39$: .WORD 0 sERROR # GOES HERE 
204 041214 005726 40$: TST (SP) + :STRIP RETURN ADDRESS TO SUBROUTINE 
205 041216 2716 000006 ADD #6, (SP). :MOVE SP TO USERS ERROR CALL 
206 041222 113776 041212 000000 MOVB 39$,a(SP) -MOVE ERROR # TO USERS CALL 
Soe 041230 000137 041246. JMP 423 
209 041234 032737 040000 001336 41$: BIT ATRE,RMCS11 :ANY CONTROLLER ERRORS ? : 
210 041242 001001 7 BNE 42$ :BR IF YES 
gi} 041244 000446 BR 48% :NO ERRORS DETECTED 
213 SII ITO BORIC IOI IOI TOIT IORI TOTTI IT III III IIA IASI ISSAIS SSIS SII SSSA 
214 -AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE. 
si? >THE SECTOR WILL BE RETRIED IF POSSIBLE. 
217 041246 005337 042160 42%: DEC 68$ -YES, DECREMENT RETRY COUNT AND 
18 1252 100026 BPL 45$ -RETRY IF COUNT NOT NEGATIVE. 
$s >THE RETRY COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED 
222 041254 032737 100720 001352 43$: BIT ADCK!HCRC'HCE!FER!ECH,RMERTI ANY MEDIA RELATED ERRORS ? 
$2 041262 001004 ‘ BNE 44$ :YES, GO TRY NEXT AVAILABLE SECTOR 
225 041264 032737 100000 001400 BIT #BSE ,RMERZ21 ANY MEDIA RELATED ERRORS ? 
041272 001422 BEQ 46% -NO, EXIT AND REPORT ERROR ON RETURN 


a me re we eee sesh sesso 
SS ee he elem = 


“2RMOBO RMOS/3/2 FCINL TST 3 
BAD SECTOR MODULE 

228 
229 
230 
231 
232 941274 062737 000002 
233 041302 122737 000012 
234 041310 001413 
235 041312 122737 000040 
256 061520 001407 
238 041322 012737 000003 
239 041330 162716 000006 
240 061354 000157 040422 
262 
243 
244 041340 00024 
245 041342 032777 020000 
266 041350 00100 
267 041352 162716 000004 
268 041356 000137 042154 
249 
250 
351 
252 
253 041362 022737 111454 
254 041370 001446 
255 041372 112737 000012 
256 041400 012757 111454 
258 041406 012737 000003 
259 041414 000137 040422 
260 
261 
262 041420 

041420 010046 

041422 010146 
263 041424 012701 000374 
264 041430 012790 000014 
265 041434 012760 177777 
266 041442 012760 177777 
267 041450 005720 
268 041452 005301 
269 041454 001567 
271 041456 012701 000006 
272 041462 005000 
273 041464 005060 110446 
274 041470 005060 111454 
275 041474 005720 
276 041476 00530 
277 041500 001371 
278 041502 012601 

041504 012600 
279 
280 
281 041506 
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SEQ 0183 


>THE ERRORS DETECTED WHILE TRYING TO RECOVER "4E BAD SECTOR FILE ARE 
:DUE TO THE MEDIA. SEE IF THE BAD SECTOR Fliz CAN BE RECOVERED FROM 
:; ANOTHER AREA ON THE LAST TRACK 

443: #2 ,.RMDAO 


001420 sADVANCE SECTOk ADDRESS BY 2 


ase! MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER 


001420 CMP #10. .RMDAO :QUIT IF ALL MFG SECTORS HAVE BEEN 
001420 (MPR #32. .RMDAO “QUIT IF ALL USER SECTORS HAVE BEEN 
BEQ 46$ : TRIED. 
042160 MOV #3,68$ :REINSTATE RETRY COUNT FOR THIS SECTOR 
45$: SUB #6, (SP) “MOVE SP BACK TO NO ERROR 
MP 3$ [RETRY THE READ OPERATION 
:THE BAD SECTOR FILE CANNOT BE READ | 
46%: NOP | 
137604 BIT #SW13,aSWR : INHIBIT MESSAGE ? | 
BNE 47$ s¥z 
SUB #4, (SP) “MOVE SP TO ERROR RETURN | 
47$:  JMP 67$ *GO TO MODULE EXIT 
:THE SECTOR WAS RECOVERED WITHOUT ERROR - READ THE USER FILE IF 
“THIS IS THE MGF FILE OR ELSE DONE. | 
001416 48$: CMP MUSRFIL,RMBAO ;WAS THE USER FILE READ ?? | 
BEQ 52$ 7¥ES - READ IS COMPLETE 
001420 MOVB #10..RMDAO “READ THE USER FILE LAST TRACK, SECTOR = 10. 
001416 MOV #USRFIL,RMBAO :POINT TO USERS FILE BUFFER 
042160 MOV #3,68$ :RELOAD THE RETRY COUNT FOR THIS SECTOR | 
JMP 3$ :GO READ THE USER FILE | 
j Dummy THE BAD SECTOR FILES 
"MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R1,~-(SP) : PUSH R1 ON STACK 
MOV #252. .R1 >R1 = NUMBER OF ENTRIES IN FILES 
MOV #14,R0 *RO = ADDRESS INDEX TO FILE STORAGE 
110446 50$: MOV #-1_MFGFIL(RO) :ENTER ALL ONES IN MFG FILE 
1114546 MOV #-1_USRFIL(RO) :ENTER ALL ONES IN USER FILE 
TST (RO) + “ADVANCE ADDRESS 
DEC R1 “DECREMENT COUNT 
BNE 50$ “CONTINUE IF NOT DONE 
MOV #6. ORI -CLEAR HEADER, CLEAR ID & SERIAL NUMBERS 
‘ | 
51$: CLR MF GF IL (RO) 
CLR USRF IL (RO) 
TST (RO) + :ADVANCE ADDRESS 
DEC R1 | 
BNE 51$ 
MOV (SP) +,R1 ::POP STACK INTO R1 
MOV (SP)+,RO ::POP STACK INTO RO | 
| 
| 
= 


2 + eee — —— 
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BAD SECTOR MODULE SEQ 0184 
041506 010046 MOV RO,-(SP) PUSH RO ON STACK 
282 041510 005000 CLR RO “RO IS REGISTER INDEX 
283 041512 012737 177777 001512 MOV #-1 ,.MEDENE 
284 041520 016060 106436 001412 53$: MOV BUFFER(RO), PUTBUF (RO) 
285 041526 062700 000002 ADD #2 RO zADVANCE RO 
286 041532 022700 000046 CMP #46,RO 3DONE ?? 
287 041536 103570 BHIS 53$ 
See 041540 012600 MOV (SP)+,R0 3zPOP STACK INTO RO 
290 FRIAR REE REE RRR EEE EEE EERE ERE EERE EERE EERE 
291 - VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILE 
292 = AND NOT IN THE USERS “we SECTOR FILE. ASSIGN A NEW SECTOR IF THE 
295 ae IS IN ANY OF THE FILES. 
FRI RTE ERIK TTR TIT IKEE KER EKER 
5 
;LOAD INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS 
297 041542 54$: 
041542 010046 MOV RO,-(SP) 3;PUSH RO ON STACK 
041544 010146 MOV R1.-(SP) 3;PUSH R1 ON STACK 
041546 010246 MOV R2,-(SP) :zPUSH R2 ON STACK 
298 041550 013737 001446 001514 MOV RMDCO, ASNDC ;LOAD REQUESTED CYLINDER, TRACK 
299 041556 0135737 001420 001516 MOV RMDAO ,ASNDA AND SECTOR ADDRESS IN ASSIGNED STORAGE 
300 041564 005002 CLR R2 >R2 = NUMBER OF SECTORS 
301 041566 013700 001414 MOV RMWCO,RO :RO = WORD COUNT 
302 041572 005400 NEG RO ;MAKE NUMBER POSITIVE 
303 041574 012701 000400 MOV #256. ,R1 3R1 = NUMBER OF WORDS PER SECTOR 
304 041600 032737 000002 001412 BIT #B1T1,RMCS10 AB | THIS A HEADER AND DATA COMMAND ?? 
305 041606 001402 BEQ 55$ :NO ! 
306 041610 012701 000402 MOV #258. ,R1 S CHANGE WORDS PER SECTOR 
307 041614 020100 55$: CMP R1,R0 21S THERE A FULL SECTOR ?? 
308 041616 101404 § BLOS 56$ - s¥ES 
309 041620 005700 TST RO :1S RO ZERO ?? 
310 041622 001405 BEQ 57% 
311 041624 005202 INC R2 : INCREMENT FOR PARTIAL SECTOR 
312 041626 00040 BR 57$ 
313 041630 160100 56$: SUB R1,R0 ; SUBTRACT ONE SECTOR FROM WORD COUNT 
314 041632 005202 INC R2 ; INCREMENT SECTOR COUNT 
315 041634 000767 BR 55$ 
3 041636 010237 042160 57$: MOV R2,68$ sSAVE SECTOR COUNT 
318 ;LOAD PARAMETERS AND SEARCH THE MFG/USER SECTOR FILE FOR THE 
319 > ASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT SECTORS IF THE 
sss ;SECTOR COUNT IS MORE THAN ORE . 
322 041642 012737 110462 042170 MOV #MFGFIL+14,72$ ;THE STARTING ADDRESS OF MFG FILE 
3235 ;TO BASE ADDRESS STORAGE. 
324 041650 004737 041672 JSR PC,58% 3GO SEARCH FILE 
325 041654 012737 111470 042170 MOV MUSRF IL+14,72$ > LOAD STARTING a arhas OF USR FILE 
326 ;TO BASE wre STO RAGE . 
327 041662 004737 041672 JSR PC 58% =GO SEARCH FILE 
328 041666 000137 042132 JMP 66$ = DONE WITH ALL FILE SEARCHES !! 
330 041672 013737 001514 042164 58$: MOV ASNDC , 70% ;LCAD COMPARING CYLINDER ADDRESS 
371 041700 013737 001516 042166 MOV ASNDA,71$ ;LOAD COMPARING TRACK, SECTOR ADDRESS 
041706 013737 042160 042162 MOV 68$, 69$ ; LOAD NUMBER OF SECTORS TO CONF IRM 


:SETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING 
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i CYLINDER, TRACK AND SECTOR ADDRESS 
"MOV 72$,RO :LOAD THE BASE ADDRESS IN RO 


60$: CMP A#~1, (RO) 71S THIS FILE TERMINATOR ? 
BEQ 64$ :BR IF YES 
CMP (RO) , 70% ;DOES TABLE ENTRY = COMPARING CYLINDER ? 
BNE 62$ :BR IF NO 


sFILE ENTRY EQUALS COMPARING CYLINDER. SEE IF THE NEXT ENTRY EQUALS 


;THE COMPARING TRACK, AND SECTOR 


61$: 
CMPB 3(RO) ,71$+1 ;DOES TABLE ENTRY = COMPARING TRACK ? 
BNE 62$ :BR IF NO 
CMPB 2(RO) ,71% ;DOES TABLE ENTRY = COMPARING SECTOR ? 
BEQ 63$ ;BR IF YES 

62$: CMP (RO) +, (RO) + ;NO, ADJUST CYLINDER POINTER IN BAD FILE 
BR 60$ sAND CONTINUE SEARCH. 


;THE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD SECTOR FILE. 
cea THE ASSIGNED SECTOR AND START THE SEARCH ALL OVER. 


INCB - ASNDA : INCREMENT SECTOR 

CMPB #31.,ASNDA SECTOR OK ?? 

BHIS 58$ “VES: 2 

CLRB ASNDA ;CLEAR SECTOR AND ADVANCE TRACK 
INCB ASNDA+1 

CMPB LSTRK+1,ASNDA+1 ; TRACK OK ? 

BHIS 58$ -YES 

CLR ASNDA CLEAR: TRACK AND SECTOR | 
INC ASNDC s INCREMENT CYLINDER 

CMP #822. ,ASNDC ; CYLINDER OK ?? 

BHIS 58$ -YES 

CLR ASNDC START “AT CYLINDER 0 

BR 58$ ;SEARCH NEXT SECTOR 


>THE COMPARING SECTOR IS NOT IN THE BAD SECTOR FILES. DECREMENT THE 
;NUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER 
123 NOT ZERO. 


DEC 69$ ;DECREMENT NUMBER OF SECTORS TO COMPARE 
BEQ 67$ ;DONE IF ZERO 
INCB 71$ ; INCREMENT THE COMPARING SECTOR 
CMPB #31.,71$ SSECTOR OK 7? 
BHIS 65$ sYea- 3: 
CLRB 2: So ;CLEAR SECTOR 
INCB 71$+1 : INCREMENT | TRACK 
LSTRK+1,71$+1 ;TRACK OK ?? 
BHIS 65$ s¥es 2% 
CLR 71$ :CLEAR SECTOR TRACK 
INC 70$ : INCREMENT oe 
CMP #822. ,70% ; CYLINDER OK 
BHIS 65$ YES 
CLR 70$ STAR “AT CYLINDER 0 


SEQ 0185 
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BAD SECTOR MODULE 


LT A le " 


ee ee 


a58 042130 000671 65$: BR 59$ ; SEARCH NEXT SECTOR 
394 z;ASSIGN THE SECTOR AND RETURN TO USER 
395 042132 66$: 
396 942132 013737 1514 001446 MOV ASNDC ,RMDCO ;LOAD CYLINDER 
397 042140 013737 1516 001420 MOV ASNDA ,RMDAO [LOAD TRACK AND SECTOR 
398 042146 012602 MOV (SP)+,R2 :;POP STACK INTO R2 
042150 012601 MOV (SP)+,R1 7zPOP STACK INTO R1 
042152 012600 MOV (SP) +,RO 3sPOP STACK INTO RO 
400 042154 000240 67$: NOP 
tap 042156 000207 RTS PC 
am >THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE 
405 042160 000000 68$ «WORD 0 ;RETRY COUNT/ NUMBER OF SECTORS REQUIRED 
406 042162 000000 69$ -WORD 0 ;NUMBER OF SECTORS TO COMPARE 
407 042164 000000 70$ -WORD 0 : COMPARING CYLINDER 
408 042166 000000 71$ -WORD 0 : COMPARING TRACK AND SECTOR 
409 042170 000000 72$ -WORD 0 :BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED 
410 042172 000000 73$ -WORD QO ; CONTAINS RMER2 


SEQ 0186 
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BUFFER GENERATOR SUBROUTINE \ SEQ 0187 


-SBITL BUFFER GENERATOR SUBROUTINE 
:THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS. THE 


:BUFFER STARTS AT RMBA AND IS RMWC WORDS LONG. 


THE BUFFER 


:CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF $TMP1 WORDS 
;FROM THE DATA PATTERN TABLE, BEGINNING AT ADDRESS $STMPO. 
:HEADER a FOR THE BUFFER IS EXTRACTED FROM RMDC, 


2 
3 
4 
5 
6 
? 
8 ;RMDA AND 
10 :RO = ADDRESS OF DATA BUFFER 
11 R1 = LENGTH OF DATA BUFFER 
12 “R2 = ADDRESS OF DATA PATTERN 
13 *R3 = LENGTH OF DATA PATTERN 
i? :R4 = SECTOR COUNT 
16 > CALL: 
17 :(1) JSR PC, GENBUF 
H = (2) ?? RETURN HERE 
20 042174 GENBUF : 
042174 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
042176 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
042200 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
042202 010346 MOV R3,-(SP) - +:PUSH R3 ON STACK 
042204 010446 MOV R4,-(SP) : PUSH R4 ON STACK 
21 042206 013700 001416 MOV RMBAO , RO :LOAD DATA BUFFER ADDRESS 
22 042212 013701 001414 MOV RMWCO,R1 :LOAD WORD COUNT 
23 042216 013737 001446 042426 MOV RMDCO,60$ =LOAD STARTING CYLINDER ADDRESS 
$e 042224 013737 001420 042430 MOV RMDAO ,65$ :LOAD STARTING TRACK,SECTOR ADDRESS 
26 042232 032737 000002 001412 10S: BIT #B1T1,RMCS10 :WRITE HEADER & DATA?? 
2/7 042240 001445 BEQ 25$ zNO!! 
28 posses 013710 042426 MOV 60$, (RO) :WRITE HEADER WORD #1 
29 042246 052710 140000 BIS #MSE'USE,(RO)  ;:SET BAD SECTOR FLAGS FOR GOOD SECTOR 
= 042252 012702 000035 MOV #29. ,R2 :R2 = MAXIMUM SECTOR ADDRESS (29.) 
32 042256 032737 010000 001444 BIT #FMT16,RMOFO 19 ott FORMAT ?? 
33 042264 001404 BEQ 15$ 
34 042266 052710 010000 BIS #FMT16, (RO) ‘SET ié FORMAT BIT IN HEADER 
e 042272 012702 9000037 MOV #31.,R2 : CHANGE MAXIMUM SECTOR ADDRESS (31.) 
37 042276 005201 15$: INC R1 : INCREMENT WORD COUNT 
38 042500 001443 BEQ 50% sEXIT IF DONE 
40 042302 005720 TST (RO) + sMOVE RO TO HEADER WORD #2 
1 042 013720 042430 MOV 65$, (RO) + :WRITE HEADER WORD #2 
42 042310 005201 INC R1 > INCREMENT WORD COUNT AND 
43 042312 1436 BEQ 0$ :EXIT IF DONE 
44 042314 012703 042430 MOV #65$,R3 :ADVANCE SECTOR ADDRESS 
45 042320 105213 INCB (R3) 
46 042322 120213 CMPB R2, (R3) SECTOR OVERFLOW ?? 
47 042324 103013 BHIS 25$ -NO 
48 042326 105013 CLRB (R3) “YES = CLEAR SECTOR ADDRESS 
49 0423 105263 000001 INCB 1(R3) “ADVANCE TRACK ADDRESS 
50 042334 123763 001335 000001 CMPB LSTRK+1,1(R3)  :TRACK OVERFLOW ?? 
$1 042342 3004 BHIS 25$ z:NO !! 
52 042344 105063 000001 CLRB 1(R3) -YES = CLEAR TRACK ADDRESS 
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MIWA SIV 


RAVZSSHVRAL 
REPRLELL 


° 
B 
NR 
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66 ee 
67 042424 
68 

69 042426 
70 042430 


000207 


000000 
000000 


INCB 60$ ; ADVANCE 3 ADDRESS 
25$: MOV #256. ,R4 ;LOAD SECTOR DATA COUNT 
30$: MOV $TMPO,R2 ;LOAD PATTERN ADDRESS 

MOV $TMP1,R3 :LOAD PATTERN COUNT 
40$: MOV (R2)+,(RO)+ ;WRITE DATA PATTERN 

INC R1 ; INCREMENT WORD COUNT AND 

BEQ 50$ sEXIT IF DONE 

DEC R4 ;DECREMENT SECTOR COUNT 

BEQ 10$ ;START NEXT SECTOR IF 0 

DEC R3 ;DECREMENT PATTERN COUNT 

BEQ 30$ ;RESTART PATTERN IF 0 
sos BR 40$ ; CONTINUE DATA PATTERN 

MOV (SP) +,R4 ;sPOP STACK INTO R4 

MOV (SP)+,R3 ;sPOP STACK INTO R3 

MOV (SP)+,R2 ;sPOP STACK INTO R2 

MOV (SP)+,R1 ;sPOP STACK INTO R1 

MOV (SP) +,RO 3;POP STACK INTO RO 

NOP 

RTS PC 
60$: . WORD ;CYLINDER ADDRESS STORAGE 
65$: . WORD ; TRACK, SECTOR ADDRESS STORAGE 


SEQ 0188 
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} _SBITL COMPARE BUFFER SUBROUTINE 
3 :THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BUF TWO, 
4 “ASSUMING THAT BUFONE IS THE BUFFER FROM WHICH DATA WAS WRITTEN 
5 “AND BUFTWO IS THE BUFFER TO WHICH DATA WAS READ. ERRORS IN BUFFER 
z -COMPARISON ARE REPORTED TO THE USER VIA THE USER'S ERROR CALL. 
& > CALL: 
9 >(1) JSR PC, CMPBuF 
10 (2) .WORD WRITE BUFFER ADDRESS 
11 : “WORD READ BUFFER ADDRESS 
12 > (3) BR RETURN HERE IF NO ERROR 
13 > (4) NOP RETURN HERE IF ERROR 
14 (5) ERROR ERROR DEFINED BY SUBROUTINE 
15 > (6) 22? 
16 
17 042432 CMPBUF : 
042432 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
042434 010146 MOV R1,-(SP) *=PUSH R1 ON STACK 
042436 010246 MOV R2,-(SP) -:PUSH R2 ON STACK 
042440 010346 MOV —-—sOR'3,-(SP) = =PUSH R3 ON STACK 
18 042442 005037 042772 CLR 150$ “CLEAR CORRECTION FLAG 
20 :DETERMINE IF DATA SHOULD BE CORRE C TED 
21 042446 033737 004000 001370 BIT ECI,RMOF I WAS ECC CORRECTION ALLOWED ?? 
22 042454 001063 BNE 80$ *NO 
23 042456 032737 100000 001352 BIT #DCK,RMER11 i te “THERE A DATA CHECK ?? 
24 042464 001457 BEQ 80$ =NO 
25 042466 032737 000100 001352 BIT #ECH,RMER1I 21S ERROR CORRECTION HARD SET ? 
26 042474 001053 BNE 80$ YES 
27 042476 032737 010000 001370 BIT #FMT16,RMOF I “18 this 16 BIT FORMAT ?? 
28 042504 001447 BEQ 80$ *NO ! 
30 -CORRECT DATA USING ECC INFORMATION 
31 042506 013700 001416 MOV RMBAO RO ;RO = STARTING BUFFER ADDRESS 
32 042512 013701 001402 MOV RMEC1I.R1 R1 = ECC POSITION 
33 042516 052737 100000 042772 BIS parent S 150$ -SET CORRECTION FLAG 
35 :MOVE RO TO WORD BOUNDARY OF ERROR BURST 
36 042524 022701 000020 10$: CMP #16. ,R1 :1S$ BIT POSITION > 1 WORD 
37 042530 103004 BHIS 20$ =NO 
38 042532 162701 000020 SUB #16.,R1 SUmTRACT 1 WORDS WORTH 
39 042536 005720 TST (RO) + “ADVANCE BUFFER ADDRESS 1 WORD 
40 042540 000771 BR 10$ 
41 042542 012702 000001 20$: MOV #1,R2 -R2 = BIT POINTER 
*§ 042546 010203 MOV R2,R3 :R3 = BIT NUMBER 
44 -MOVE R2 TO STARTING BIT OF ERROR BURST 
45 042550 020301 30$: CMP R3,R1 ;1S_R3 SAME AS R1 ?? 
46 042552 001403 BEQ 35$ YES 
47 042554 006302 ASL R2 SHIFT "BIT POINTER 
48 042556 005203 INC R3 : INCREMENT BIT NUMBER 
49 042560 000773 BR 30$ 
a 042562 012703 000013 35$: MOV #11.,R3 :R3 = LENGTH OF ERROR BURST 
52 : CORRECT THE ERROR BURST 
53 042566 030237 001404 40$: BIT R2,RMEC2] :1S THIS BIT SET IN ECC PATTERN ?? 
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000010 
000010 


000010 
000010 
042772 


000010 
000010 


BEQ 60$ 

BIT R2, (RO) 

BEQ 50$ 

BIC R2, (RO) 

BR 60$ 
50$: BIS R2, (RO) 
60$: ASL R2 

BNE 70$ 

MOV #1,R2 

TST (RQ) + 
70$: DEC R3 

BNE 40$ 


; COMPARE WRITE BUFFER TO READ BUFFER 
80S: MOV @10(SP) ,RO 


DO NOT CORRECT THIS BIT 
Is THE BIT PRESENTLY SET ?? 


SRESET THE BIT 


3SET THE BIT 
sSHIFT TO NEXT BIT 


;CONTINUE WITH FIRST BIT OF NEXT WORD 
;END OF BURST ?? 
jae! : 


;RO = WRITE BUFFER 
;MOVE SP TO +h ADDRESS 


FER 
:MOVE SP TO RETURN ADDRESS 
;R2 = NUMBER OF WORDS TRANSFER 


: CONTINUE IF NOT DONE 
;DONE COMPARE - NO ERROR 


;STORE GOOD DATA FOR TYPEOUT 
:STORE BAD DATA FOR TYPEOUT 
;STORE ADDRESS OF GOOD DATA 
;STORE ADDRESS OF BAD DATA 
«STORE WORD COUNT OF ERROR 
;MOVE SP TO USER'S ERROR CALL 
sWRITE ERROR NUMBER IN CALL 


sWAS ECC CORRECTION USED ?? 
-NO !! 


“ECC CORRECTION FAILED 
“MOVE SP TO RETURN IF ERROR 


ADD #2,10(SP) 
MOV a10(SP) ,R1 =R1 = READ BUF 
ADD #2,10(SP) 
MOV RMWCI.R2 
SUB RMWCO,R2 

90S: CMP (RO) +, (R1)+ = COMPARE DATA WORDS 
BNE 100$ “EXIT IF NOT EQUAL 
DEC R2 “DECREMENT WORD COUNT 

E 90$ 

BR 110$ 

-DATA COMPARE FAILED 

100$: MOV -(RO) ,$GDDAT 
MOV -(R1) .$BDDAT 
MOV RO. $GDADR 
MOV R1,$BDADR 
MOV R2.$TMPO 
ADD #4.10(SP) 
MOVB  #336,a10(SP) 

:CHANGE ERROR NUMBER IF ECC CORRECTION FAILED 
BIT #B1T15,150$ 
BEQ 105$ 
MOVB  #163,a10(SP) 

105$: SUB #2,10(SP) 
NOP 

110$: 

3 MOV (SP)+.R3 ::POP STACK INTO R3 
MOV (SP) +.R2 >=POP STACK INTO R2 
MOV (SP) +_R1 -=POP STACK INTO R1 
MOV (SP) +_RO > =POP STACK INTO RO 
RTS PC “RETURN TO USER 

150$:  .WORD -ECC CORRECTION FLAG 


SEQ 0190 
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GET STATUS SUBROUT i NE SEQ 0191 


es ts me ae a ee ee ee 


; .SBITL GET STATUS SUBROUTINE 
z : THIS SUBROUTINE SETS UP THE ‘GET INDEX TABLE‘'’ AND THE ‘GET 
4 ;BUFFER’* FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE 
Z z:AND THEN RETURNS TO THE USER. 
7 :CALL: JSR PC,GETSTS 
: ; 7??? RETURN HERE 
10 042774 GETSTS: 
042774 0610046 MOV RO,-(SP) 7zPUSH RO ON STACK 
11 042776 010146 MOV R1.-(SP) :;PUSH R1 ON STACK 
12 043000 010246 MOV R2,~(SP) ;;PUSH R2 ON STACK 
13 043002 012700 001524 MOV #GETINX, RO 7RO = ADDRESS OF INDEX TABLE 
14 043006 012701 001406 MOV #RMEC21+2, R1 :RI = ADDRESS OF GET BUFFER 
15 043012 012702 000046 MOV ARMEC2,R2 R2 = REGISTER INDE 
16 043016 110220 2$: MOVB R2, (RO) + “WRITE REGISTER INDEX IN TABLE 
17 043020 5041 CLR -(R1) :CLEAR CORRESPONDING LOCATION 
18 043022 162702 000002 3$: SUB #2,R2 = DECREMENT TO NEXT INDEX 
19 043026 100405 BM] 4$ > BRANCH OUT IF DONE 
20 043030 022702 000022 CMP #RMDB ,R2 DONT WRITE RMDB INDEX 
21 043034 001370 BNE 2$ 
22 043036 005041 CLR -(R1) 
23 043040 770 BR 3$ 
24 043042 112720 000200 4$: MOVB #200, (RO) + :WRITE TERMINATOR 
25 043046 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
26 043050 012601 MOV (SP)+,R1 >:POP STACK INTO R1 
27 043052 012600 MOV (SP)+,RO :z;POP STACK INTO RO 
28 045054 000240 NOP 
29 043056 000207 


RTS: PC 


Stell shes scents 
a cr rr re a a ee — 
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-SBTTL GET SUBROUTINE 


;THIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE 
:"'GET INDEX TABLE™’ AND STORES THEIR VALUES IN THE CURRESPONDING 
[LOCATION IN THE ‘GET REGISTER BUFFER''. FOR EXAMPLE, AN 
sENTRY OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE TO 

:READ ‘RMBA’' AND STORE ITS CONTENTS AT THE LOCATION IN 

;THE BUFFER ASSIGNED TO THAT REGISTER. es NUMBER OF 

:REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE INDEX 

: TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200) 

WHICH SHOULD FOLLOW THE LAST ENTRY. 


; SUBROUT INE CALL: 
21) "GET INDEX TABLE'' HAS BEEN LOADED WITH REGISTER INDEX 
; VALUES AND TERMINATED WITH A CONTROL BYTE 
3 (2) "GET INPUT BUFFER'' IS AVAILABLE FOR USE. (NOTE THAT 
. UNUSED LOCATIONS, I.E.,ENTRIES IN BUFFER CORRESPONDING 
; TO REGISTERS NOT READ, ARE NOT CHANGED.) 


3t3) JSR PC,GET 

; BR ive RETURN HERE IF NO ERROR FOUND 
; NOP RETURN HERE IF ANY ERROR FOUND 
: ERROR SUB DEFINES ERROR NUMBER 


Tae 


NORM — — 2 SV I ee 
WO OW NA NSW —-OWW NAWAWP.- 


MM 


25 ;RO = REGISTER BASE ADDRESS 


26 ;R1 = REGISTER ADDRESS 
27 :R2 = BUFFER BASE ADDRESS 
28 ;R3 = BUFFER ADDRESS 
¢ :R4 = POINTER TO REGISTER INDEX 
31 043060 000240 GET NOP | 
32 045062 062716 000004 ADD #4, (SP) ;CLEAR ERROR NUMBER IN USER'S 
33 045066 105076 000000 CLRB a(SP) ;ERROR CALL 
34 043072 162716 000004 SUB #4 , (SP) 
35 043076 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
043100 010146 MOV R1,-(SP) 3zPUSH R1 ON STACK 
043102 010246 MOV Re, (SP) ;~7PUSH R2 ON STACK 
043104 010346 MOV R3,~-(SP) ;;PUSH R3 ON STACK 
043106 010446 MOV R4,~(SP) ;7PUSH R4 ON STACK 
043110 013746 000004 MOV ERRVEC ,~-(SP) 73PUSH ERRVEC ON STACK 
043114 013746 000006 MOV ERRVEC+2,-(SP) ;3PUSH ERRVEC+2 ON STACK 
36 043120 013700 001276 MOV $BASE ,RO 
37 043124 012702 001336 MOV AGE TBUF ,R2 
38 043130 012704 001524 MOV AGETINX,R4 
39 043134 012737 043242 000004 MOV #5$,,ERRVEC :SETUP FOR TIMEOUT 
40 043142 012737 000300 000006 MOV #PR6 ,ERRVEC+2 . 
41 043150 016037 000010 001174 1%: MOV RMCS2(RO),$TMPO ;GET ‘NED'’ STATUS 
42 043156 016037 000000 001176 MOV RMCS1(RO),$TMP1 :GET ‘DVA'’ STATUS 
43 043164 032737 004000 001176 BIT . #DVA,$TMP1 DEVICE AVAILABLE ?? 
44 043172 001007 BNE 3$ ‘YES: 
45 043174 0627 0 000016 ADD #4 ,16(SP) ‘URI TE ERROR NUMBER IN USER'S 
46 043202 112776 000112 000016 MOVB #112,016(SP) ;ERROR CALL 
47 043210 000425 BR 7$ 
48 043212 105714 3S: TSTB (R4) ; DONE 7: 
49 043214 100433 BMI 9$ YES: 
50 043216 111401 MOVB (R4) ,R1 7R1 = REGISTER ADDRESS 
51 04322C 042701 177700 BIC #*CIDXMSK RI = CLEAR ANY SIGN EXTENSION 
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WINONA AEN OANA A AAA 
RIE pet tot NUS 


OOCO 
RRR 


™N 
— 


060001 
112403 
og At 


06020 
011113 
000764 


022626 
062766 


TST 3 


177700 


000002 


000006 
000004 
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5$: 


000016 


000016 
000016 7$: 
8$: 


9$: 


ADD 


RO,R1 
(R4)+,R5 
#*CIDXMSK R53 


R2,R3 
(R1),(R3) 
3$ 


(SP)+,(SP)+ 
#4,16(SP) 
#7 .216(SP) 
#2.16(SP) 
(R4) 

9$ 


R3 
(R4)+,R3 
R2,R3 


8$ 


(SP) +, ERRVEC+2 
(SP) +, ERRVEC 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 

PC 


;R3 = STORAGE ADDRESS FOR REGISTER 
:CLEAR ANY SIGN EXTENSION 


;READ REGISTER 


sRESTORE STACK 
;WRITE ERROR NUMBER IN 


7USER"S ERROR CALL 
eeat CLEARING? ? 


CLEAR REMAINING STORAGE 
TIONS 


LOCA 


3zPOP STACK INTO ERRVEC+2 

3;POP STACK INTO ERRVEC 

:;POP STACK INTO R4& 

:7;POP STACK INTO R3 

:;POP STACK INTO R2 

:zPOP STACK INTO R1 

;z;POP STACK INTO RO 

: RETURN 


SEQ 0193 


' CZ7RMOBO RMOS/3/2 FCINL TST 3 
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PUT SUBROUTINE SEQ 0194 


1 


WN OS ODNA NMEWY —- OVO NAUL wr 


PONMINIA) @ 3 


YESESESREA SE SRISREUNISS 
RRRRRLRERRRLRRLLRRLREL 
RE RR ES ER ER REE ERE RS 
HNSFREENSSASSRTRIS 


FS 
RISS 


~~ SO — 
$8 
Ww 
™N 
— 
&* 


000004 
000112 


177700 


177700 


000004 
000006 


001174 
001176 
001176 


000016 
000016 


-SBTTL PUT SUBROUTINE 


sTHIS SUBROUTINE ay Ht THE REGISTERS WHICH ARE LISTED IN THE 
:"PUT INDEX TABLE’’ WITH THE CONTENTS OF THE CORRESPONDING 
:LOCATION IN THE ‘PUT REGISTER BUFFER''. THE NUMBER OF 
:REGISTERS WRITTEN IS VARIABLE; THE INDEX TABLE MUST 

“BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD 
sFOLLOW THE LAST ENTRY. 


> SUBROUTINE CALL: 


241) "PUT INDEX TABLE‘ HAS att LOADED WITH INDEX VALUES 
: OF REGISTERS TO BE WRITTEN. 

3 (2) "PUT REGISTER BUFFER'' —_— CONTENTS OF EACH 

: REGISTER TO BE WRITTEN 

(3) JSR PC,PUT 


: BR bd es RETURN HERE IF NO ERROR FOUND 
: NOP RETURN HERE IF ANY ERROR FOUND 
: ERROR SUB DEFINES ERROR NUMBER 

:RO = REGISTER BASE ADDRESS 

:R1 = REGISTER ADDRESS 

:R2 = BUFFER BASE ADDRESS 

;R3 = BUFFER ADDRESS 

:R4 = POINTER TO REGISTER INDEX 


MOV RO,-(SP) ;;PUSH RO ON STACK 
MOV R1,-(SP) ;;PUSH R1 ON STACK 


sPU 
PUSH ERRVEC ON STACK 
: «PUSH ERRVEC +2 ON STACK 


MOV ERRVEC ,-(SP) 
MOV ERRVEC+2,-(SP) 


MOV #PUTINX RG 
MOV #5$,ERRVEC :SETUP FOR TIMEOUT 
MOV #PR6, ERRVEC+2 

1$ MOV RMCS OTRO). $TMPO ;GET ‘NED'* STATUS 
MOV RMCS1(RO).$TMP1 :GET ‘DVA'’ STATUS 
BIT #DVA,$TMP1 ; DEVICE AVAILABLE ?? 
BNE 3$ “YES! ! 
ADD #4,16(SP) ‘wt Te ERROR NUMBER IN 
MOVB #1i2,a16(SP) “USER'S ERROR CALL 

3$: TSTB —s._« (RG) ; DONE ?? 
BM] 9$ “YES! 
MOVB (RG) ,R1 *R1 = REGISTER ADDRESS 
BIC #°C IDXMSK RI “CLEAR ANY SIGN EXTENSION 
MOVB  (R4),R3 -R3 = STORAGE ADDRESS 
BIC #*CIDXMSK.R3 CLEAR ANY SIGN EXTENSION 
ADD R2_R 
MOV (R3), (R1) -WRITE REGISTER 

4$: TSTB. ~—s_: (RG) + “ADJUST REGISTER POINTER 


——— 


—_—_—_— — ee ee ees ee we SS on —-- _— — ~- —_— —s ——- -—- — 
— --— oe -_——-—- a 


5 
i. 


N 1 
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- PUT SUBROUT INE SEQ 0195 
! 38 043476 000763 BR 3$ 
54 043500 022626 5$: CMP (SP)+, (SP)+ sADJUST STACK 
| 55 043502 062766 009004 000016 ADD #4,16(SP) WRITE ERROR NUMBER IN 
| 56 043510 112776 000007 000016 MOVB  #7.@16(SP) sUSER'S ERROR CALL 
| 7 043516 162766 000002 000016 73S: SUB #2,16(SP) 
| SS 043524 9$: 
043524 012637 000006 MOV (SP) +, ERRVEC+2 :POP STACK INTO ERRVEC+2 
043530 012637 000004 MOV ($?)+, ERRVEC 3 POP STACK INTO ERRVEC 
043534 012604 MOV (SP)+,R4 :;POP STACK INTO RG 
3536 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
043540 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
043542 012601 MOV (SP)+,R1 ::;POP STACK INTO R1 


043544 012600 MOV (SP)+,RO ;sPOP STACK INTO RO 
60 043546 000207 Serer RTS PC RETURN 


—_— — _— oom 2 = — ” 
-—- - ete ae — — —- a - =— — — -- 

- _—— -- =- - — 
———— - _ - 


ee a ee tee — 
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SIZE CLOCK SUBROUTINE SEQ 0194 


A A TT 


} .SBITL SIZE CLOCK SUBROUTINE 
3 043550 SIZCLK: 

4 043550 013746 000004 MOV ERRVEC,-(SP) ::PUSH ERRVEC ON STACK 

5 043554 013746 009006 MOV ERRVEC4+2,-“SP) ::PUSH ERRVEC+2 ON STACK 
6 043560 012737 043616 900004 MOV #1$, ERRVEC :SET UP FOR BUS TIMEOUT 

? 043566 012737 000300 000006 MOV #PR6. ERRVEC+2 

8 043574 012737 177546 001520 MOV #177546,CLKADR ;:LOAD ADDRESSES FOR KW11-L 

9 043602 012737 100 001522 MOV #100, CLKVCT 

10 063610 005777 135704 TST @CLKADR :TEST FOR KW11-L PRESENT 

11 043614 000421 BR 3$ ZYES = KW11=-L 1S PRESENT 

12 043616 022626 1$: CMP (SP)+, (SP) + “RESTORE SP 

13 043620 012737 043650 004 MOV #2$, ERRVEC -SET UP FOR BUS TIMEOUT 

14 063626 012737 772540 00152C MOV #172540,CLKADR :LOAD ADDRESSES FOR KW11-P CLOCK 
15 043634 012737 000104 001522 MOV #104, CLKVCT 

16 043642 005777 135652 TST @CLKADR :TEST FOR KW11-P PRESENT 

17 043646 BR 3$ “YES = KW11-P IS PRESENT 

18 043650 022626 —— CMP (SP) +, (SP)+ “RESTORE SP 
19 04 365¢ 2766 000002 000004 . ADD #2.4(SP) -MOVE RETURN TO ERROR 

043660 012637 000006 MOV (SP) +, ERRVEC+2 ::POP STACK INTG ERRVEC+2 

21 043664 012637 000004 MOV (SP)+,ERRVEC _::POP STACK INTO ERRVEC 
22 043670 000207 RTS PC =RETURN TO USER 


“4. 
oe 


A et —— = 


RMOBO RMO0S/3/2 FCTNL 
OUT SUBROUT INE 
1 
2 
3 
4 
5 
6 
7 
8 
9 043672 
043672 010046 
043674 010146 
043676 010246 
043700 013746 
043704 013746 
10 043710 012737 
11 043716 012737 
¢ 043724 013700 
13 0437350 013701 
14 043734 012702 
15 043740 020127 
16 043744 001003 
17 043746 012761 
8 043754 012711 
20 043760 016046 
21 043764 042716 
22 043770 022726 
25 043774 001420 
24 043776 032711 
25 044 001766 
26 044004 005302 
044006 001354 
$8 044010 00041 
044012 022626 
31 044014 2766 
32 044022 112776 
33 044030 162766 
35 044036 
4036 012637 
044042 012637 
044046 012602 
044050 012601 
044052 012600 
36 044054 000207 


TST 3 


000004 
000006 
044012 
000300 
001276 
001520 
000036 
172540 
000001 
000005 
000000 
177576 
000200 
000200 


000004 
00000 
000002 


™N 


000006 
000004 
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000004 
000006 


000002 


= 


-SBTTL TIMEOUT SUBROUTINE 


7THIS SUBROUTINE WAITS FOR RDY = 


1 AND GO = O OR FOR A TIMEOUT 


ZGREATER THAN APPROX. 500 MSEC AND THEN RETURNS. 


* CALL: 


T IMOUT : 


1$: 


3$: 


5$: 


re 


PC, TIMOUT 
RETURN HERE 
RO,~(SP) PUSH RO ON STACK 
R1,-(SP) SH R1 ON STACK 
R2,-(SP) ;;PUSH R2 ON STACK 
ERRVEC ,-(SP) > PUSH ERRVEC ON STAC 
-oag A aali ; PUSH H ERRVEC+2 ON STACK 
#4$,,ERRVEC ; SETUP FOR BUS TIMEOUT - 04 TRAP 
#PR6,ERRVEC+2 
$BASE ,RO ;RO=BASE ADDRESS 
CLKADR,R1 :R1=CLOCK ADDRESS 
#30. ,R2 ;R2=NUMBER OF ‘eae CYCLES 
it 24172540 :KW11=P CLOCK?? 


NO! ! 
#1,2(R1) :SET COUNTER 
#Bi72 BITO, (R1) ;START COUNTER 


RMCS1(RO),-(SP) ;GET STATUS 
#°C<RDY!GO>, (SP) 


ARDY, (SP) + ;RDY=1,G0=0?? 

5$ TES: : 

#BIT7,(R1) : TIMER DONE ?? 

3$ :NO!! 

R2 :DEC NUMBER OF CYCLES 

1$ : CONT INUE IF NOT DONE 

wes ;’RDY'' DID NOT SET OR ‘'GO"' DID NOT RESET 
:WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED. 

(SP) +, (SP)+ ; ADJUST STACK 

#4,12(SP) MOVE SP TO USER'S CALL 

#7 ,a12(SP) WRITE ERROR NUMBER 

#2,12(SP) 

(SP) +, ERRVEC+2 33POP STACK INTO ERRVEC+2 

(SP) +, ERRVEC >sPOP STACK INTO ERRVEC 

(SP)+,R2 ;;POP STACK INTO Re 

(SP)+,R1 ;=POP STACK INTO R1 

(SP)+,RO ;;POP STACK INTO RO 


PC ;RETURN TO USER 


SEQ 0197 


Ee eine -_— — 


COOWWNAMALWN-O OO NOUWEBWR 


wm 


044056 


044056 


pA eto) w= 
OfFAanNno ws. 


062716 
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000004 
000000 
000004 


001346 


001140 
000004 
000001 
000002 
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-SBTTL PRIMARY ERROR CHECK SUBROUTINE 


>THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND 
:THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
: FOLLOWING CHECKS ARE MADE: 


CORRECT UNIT IS SELECTED, bebe THE UNIT SELECT BITS OF RMCS2 


(BITS 0-2) EQUAL THE UNIT BEING TESTED: 


“AND NED (BIT 12 OF RMCS2) IS RESET; 


ZIN PARTICULAR, RMCS1. 


~SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET 


LAST COMMAND WAS COMPLETED, I.E., THE MASSBUS CONTROLLER IS 
“READY ‘BIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT 0 OF RMCS1) OR THE 
: DRIVE READY BIT (BIT 7 OF RMDS) IS SET 
tn, : 8 P —" ERROR OCCURRED WHEN READING REMOTE REGISTERS, 
ola" _PARITY ERROR pe WHEN WRITING REMOTE REGISTERS, 
Z1.E. = 0, OR, PAR = DPE = 1 


: THE SUBROUTINE ASSUMES THAT: 

-STATUS HAS BEEN STORED. IN THE REGISTER INPUT BUFFER, 
RMCS2 AND RMDS HAVE BEEN STORED IN THEIR 
; CORRE SPOND ING LOCATIONS OF THE ‘'GET’’ BUFFER. 


. ($UNIT) CONTAINS THE DRIVE NUMBER 


; THE SUBROUTINE IS CALLED AS FOLLOWS: 
»€h JSR PC,.PRIERR 
; BR ??? RETURN HERE IF NO ERROR 
; oP RETURN HERE TO REPORT AN ERROR 
3 ERROR ERROR NUMBER DEFINED BY SUB 
; JSR. PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
; 7??? RETURN HERE IF NO MORE ERRORS 
PRIERR: 
;CLEAR USER'S ERROR CALL 

ADD #4, (SP) sMOVE (SP) TO ERROR CALL 

CLRB a(SP) :CLEAR ERROR NUMBER 

SUB #4, (SP) =MOVE (SP) TO NO ERROR RETURN 
;REPORT AN ERROR IF THE WRONG UNIT IS SELECTED 

MOV RMCS21,$8DDAT : CORRECT UNIT SELECTED?? 

BIC #*CUNTMSK, $BDDAT 

MOV $UNIT, $GDDAT :GOOD DATA FOR TYPEOUT 

BIC #*CUNTMSK , SGDDAT 

C SGDDAT , SBDDAT ; COMPARE at AND RECEIVED 

: DRIVE NUMBERS 

BEQ 1 YES! 

ADD #4, (SP) 

MOVB #1,a(SP) sERROR 1 

SUB #2, (SP) s:MOVE SP TO RETURN FOR ERROR 

JSR PC,a(SP)+ :REPORT WRONG UNIT SELECTED 


SEQ 0198 


| CZRMOBO RMO5/3/2 FCINL TST 3 
| PRIMARY ERROR CHECK SUBROUTINE 


3 044152 
60 

61 

6 

63 

65 
66 
67 
68 
69 

70 

71 04 
72 044230 
73 

74 

75 

76 

77 

78 
79 
80 

81 

82 

83 


84 
85 

86 044306 
87 044314 


SSGRARELLS 
PPREPEP 
Sepees 


Swty—O 
ys 
* 
Ww 
oO 


nt melt anally <a lt mailt email mall allt muily eat <emlt mmily melt emails 
ee) © 
* ~J 
& 
Ps 
~w 
PS 


162716 
000240 
000137 


032737 
5 


000010 
044700 


000002 
000010 


000200 
001336 
0 


00 
000002 
000010 


000001 
000200 
001336 
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001536 
001140 
001140 
001142 
000000 
001346 


001140 


000000 


0013356 
001140 


001142 
000000 


001336 
001350 
001140 
001140 
001142 


000000 


1$: 


SUB #10, (SP) 
NOP 
JMP 10% 


sRESTORE (SP) 
;SKIP OTHER CHECKS 


;REPORT AN ERROR IF THE aeNICE IS NOT AVAILABLE OR IF 
; THE ei IS NONEXISTANT 


2$: 


5$: 
;REPORT 


7$: 
:REPORT 


#DVA,RMCS1I 
5$ 


V RMCS11,$GDDAT 

BIS #DVA, $GDDAT 

MOV RMCS11, $BDDAT 
#4, (SP) 


#2,a(SP) 
BIT #NED. -RMCS21 


MOV RMCS21,$GDDAT 
MOV RMCS21,$BDDAT 


JSR a? @(SP)+ 
SUB #10, (SP) 
NOP 


:DEVICE AVAILABLE ?? 
‘EXPECTED STATUS 

:RECEIVED STATUS 

sERROR #2 

“WAS NED SET?? 

NO! ! 

“EXPECTED STATUS 

“RECEIVED STATUS 

:YES - CHANGE ERROR NUMBER 


sMOVE SP TO RETURN FOR ERROR 
sREPORT DEVICE NOT AVAILABLE 


sRESTORE (SP) 


:SKIP OTHER CHECKS 


AN ERROR IF MASSBUS CONTROLLER IS NOT READY 


BR 10$ 
BIT ARDY .RMCS1I 
BNE 7$ 


MOV RMCS11 ,$GDDAT 
ARDY , SGDDAT 


4° + ygaehign READY?? 
sEXPECTED STATUS 


BIC WSC! TRE'MCPE GO, $SGDDAT 


MOV RMCS11 , $BDDAT 
#4, (SP) 
JSR PC,a(SP)+ 


SUB #10, (SP) 
BR 10$ 


e 


BIT oo eRMDS! 
MOV RMCS11,$GDDAT 


sRECEIVED STATUS 


sERROR &4 

:MOVE SP TO RETURN FOR ERROR 
sREPORT CONTROLLER NOT READY 
ZRESTORE (SP) 


:SKIP OTHER CHECKS 


AN ERROR IF GO IS NOT ZERO AND at IS NOT ONE 
BIT #G0,RMCS11 ;GO RESET? 


YES: 
: DRIVE READY?? 
‘EXPECTED STATUS 


Ay #SC! TRE 'MCPE!GO,$GDDAT 


V RMCS11,$BDDAT 
ADD ASP 
MOVB #5 ,a(SP) 
SUB #2, (SP) 


JSR PC ,a(SP)+ 
SUB #10, (SP) 


sRECEIVED STATUS 


ERROR #5 

:MOVE SP TO RETURN FOR ERROR 
sREPORT DRIVE NOT READY 
sRESTORE (SP) 


SEQ O19% 
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ee eee ~~ 


ST TS oe 


MARY ERROR CHECK SUBROUTINE SEQ 0200 
115 0644466 000504 , BR 10$ 
3 044470 8$: 
118 zsREPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD 
119 sPARITY ON THE MASSBUS CONTROL BUS 
120 044470 032737 020000 001336 BIT AMCPE ,RMCS1] sPARITY ERROR ?? 
121 944476 0061425 BEQ oF 
122 044500 013737 1336 001140 MOV RMCS11,$GDDAT SEXPE CTED STATUS 
123 94450 04273 160001 001140 BIC #SC!TRE'MCPE'GO, DAT 
124 514 013737 001336 001142 MOV RMCS11,$BDDAT RECEIVED STATUS 
125 C44522 062716 ADD a4, (SP) =MOV E STACK TO USER'S ERROR 
126 044526 112776 000013 000000 MOVB #13,a(SP) — #13 
127 0445 162716 000002 SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
128 044540 4736 JSR PC a(SP)+ =REPORT ERROR VIA USER 
129 044542 162716 000010 SUB #10, (SP) sRESTORE STACK 
130 044546 000240 NOP 
131 044550 00045 BR 10$ 
136 04455 9$: 
134 ;REPORT AN ERROR IF DETECTED A CONTROL BUS PARITY ERROR 
135 044552 032737 000010 001352 BIT #PAR,RMER11 WA Ss THERE A PARITY ERRGR?? 
136 044560 001451 BEQ 1 *NO!! 
137 044562 032737 000010 001400 BIT ADPE ,.RMERZI =WAS IT THE CONTROL BUS?? 
138 044570 001045 BNE 11 NOT 
139 044572 032737 000010 001426 BIT #PAR,RMER10 :DID TEST cey PAR ?? 
140 044600 001413 BEQ 93$ ie 
141 044602 010046 MOV RO,-(SP) ike RO ON STACK 
142 044604 012700 001553 MOV APUTINX,RO “RO POINTS TO INDEX TABLE 
143 044610 122710 000014 91$: CMPB ARMER1, (RO) ;SEARCH TABLE FOR RMERTI 
144 044614 001002 BNE 92 
145 044616 012600 MOV (SP)+,RO :;POP STACK INTO RO 
146 044620 0004371 BR 11$ z:PAR WAS SET BY TEST 
147 044622 105720 923: TSTB (RQ) + sEND OF TABLE?? 
148 044624 100371 BPL 91$ zNO!! 
149 044626 012600 MOV (SP) +,RO ::POP STACK INTO RO 
150 044630 013737 001352 001140 938: MOV RMER11, SGDDAT sEXPECTED STATUS 
151 044636 042737 000010 001140 BIC APAR , $GDDAT 
15¢ 044644 013737 001352 001142 MOV RMER1I, S$BDDAT sRECEIVED STATUS 
153 044652 062716 000004 ADD #4,(SP p) “MOV E SP TO USER'S ERROR CALL 
154 044656 112776 000050 000000 MOVB #50,a(SP) :WRITE THE ERROR NUMBER 
155 044664 162716 000002 SUB #2,(SP) :MOVE SP TO Rag FOR ERROR 
156 044670 004736 JSR PC a(SP)+ *REPORT THE ERR 
157 044672 162716 000010 SUB #10, (SP) -MOVE SP TO NO ERROR RETURN 
158 044676 24 NOP 
159 044700 062716 000010 10$: ADD #10, (SP) s;RETURN TO ERROR 
160 044704 000240 11$: NOP RETURN TO NO ERROR 
161 044706 000207 RTS PC 


een 


_ SECONDARY ERROR CHECK SUBROUTINE 


eee ee 
— —= a 


CZ7RMOBO RMOS5/3/2 FCINL TST 3 


MORI) — A @ 3 RS BM Se eer 
WN HO OO VAWMEW-OVDOWNAULWN-a 


MMM 
wit 


26 


044710 


044710 


044734 


044740 


013737 
042737 
062716 
105076 
162716 


032757 


112776 


001412 


000004 


000200 
001350 


0006002 
000010 


000001 


000011 


MACRO V04.00 4-APR-81 01:15:59 PAG 


050544 
050544 


001350 
001142 
001142 
001140 


000000 


001336 


001142 
001142 


000000 


i ee IF GO BIT IS NOT RESET 


G 16 
E 25 


-SBTTL SECONDARY ERROR CHECK SUBROUTINE 


>THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
;SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. 
sERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT 
sASSOCIATED WITH THE OPERATION BEING PERFORMED. 
;WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, 
;NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS 

;TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE 
;MAKES THE ERROR CALL, 
;OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
;RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 


CALL: 


THE SE 
NECESSARILY 


IT MOVES THE ERROR 


IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR 


JSR PC,SECERR 

BR Tz? RETURN HERE IF NO ERROR 

NOP RETURN HERE TO REPORT AN ERROR 

ERROR ERROR NUMBER DEFINED BY SUB 

JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
ves RETURN HERE IF NO MORE ERRORS 


;NOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
: INPUT REGISTER BUFFER. 


SECERR: 


Oe ee eee Cee ee ee er eran eeeweee 


-STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER 


MOV RMCS10,515$ : STORE FUNCTION CODE. 
BIC WAC<FOIFTIF2IF3!F4>,515$ 


ADD #4, (SP) :MOVE (SP) TO ERROR CALL 
CLRB a(SP) :CLEAR ERROR NUMBER 
SUB #4, (SP) sMOVE (SP) TO NO ERROR RETURN 


KKK KCKKKKEEKEEEKEEREEEKKKKEEEKKEEKEKKKKKKEKKKKEKKKKKKEKEKKEKKEKKKEKEK 


= CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS 


sREPORT ERROR IF DRIVE IS NOT READY, I.E., IF DRY = 0 


BIT ADRY,RMDS! ;DRIV VE READY ?? 

BNE 5$ YES! 

MOV RMDSI,$BDDAT “BAD BATA FOR TYPEOUT 

BIC #*“CDRY , SBDDAT 

MOV ADRY , SGDDAT :GOOD DATA FOR TYPEOUT 

ADD #4, (SP) 

MOVB #10,a(SP) ;ERROR NUMBER 

SUB #2, (SP) sMOVE SP TO Seabee FOR ERROR 
JSR PC, a(SP)+ ;REPORT NOT READY 

SUB #10, (SP) :RESTORE (SP) TO ERROR N 
NOP 


IT 4GO,RMCS11 + GO BIT RESET ?? 
BEQ 10$ YES: 
MOV RMCS11,$BDDAT “BAD DATA FOR TYPEOUT 
BIC #*C(GO, $8DDAT 
CLR $GDDAT ;GOOD DATA FOR TYPEOUT 
ADD AG, (SP) 
MOVB #11,a(SP) ;ERROR NUMBER 


SEQ 0201 


SE ee 
- ee ae ae 


ee ee ee ee ee ee ee ee ee ee eh 


aud < 


58 045062 
59 045066 
60 045070 
61 045074 
62 
63 


~SSHUISEAR 
RRRRRRRRRRRR 
MMMM 


92 045246 
93 045250 
94 

95 

% 

97 

98 045254 
99 045260 
00 045264 
01 045270 
02 045272 
03 045300 
04 045302 
05 045310 
06 045312 
07 045320 
08 045326 
09 045334 
10 045342 
11 045344 
12 045350 
13 045356 
14 045362 


162716 
004 


000240 


005037 


162716 


005057 
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000002 


001142 


000004 
000012 
000002 


000010 


001140 
001352 


001400 


040000 
001350 
137777 
001140 


000004 
000047 
000002 


000010 


001140 
001346 
000577 


040000 
000030 


040000 
001336 
137777 
001140 


000004 
000074 
000002 
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001140 


001142 


000000 


001350 
050544 
001140 
001142 


001142 
007142 


000000 


SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
JSR PC ,a(SP)+ “REPORT DEVICE NOT AVAILABLE 
SUB #10, (SP) RESTORE (SP) 
NOP 
;REPORT ERROR IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT 
10$: MOV RMCS11,$BDDAT ;I1S FUNCTION CODE CORRECT?? 
BIC #°C76, $BDDAT 
MOV 515$,$GDDAT sEXPECTED FUNCTION CODF 
CMP $BDDAT , SGDDAT 
BEQ 15$ YES: 3 
ADD #4, (SP) 
MOVB #12,a(SP) ;ERROR NUMBER 
SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
JSR PC,a(SP)+ sREPORT WRONG FUNCTION CODE 
— #10, (SP) sRESTORE (SP) 


15$: 
sREPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 


;ERRORS ARE SET, OR IF COMPOSITE 
; OTHER i ARE SET 


TST RMER1I : 
BNE 20$ 
TST RMER2] 
BEQ 25$ 
208: BIS HERR, $GDDAT 
25$: MOV RMDS1,$BDDAT 
BIC #°CERR, $BDDAT 
CMP $GDDAT . $BDDAT 
BEQ 30$ 
ADD #4, (SP) 
MOVB #47.,a(SP) 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #10, (SP) 


:REPORT AN ERROR IF ‘'TRE'' IS SET 
-TRE IS SET, OR IF 

“SET TRE IS SET 
30$: CLR $GDDAT 


MOV RMCS21 ,-(SP) 
BIC #377, (SP)+ 
BNE 35$ 7 
BIT AERR,RMDSI 
BEQ 40$ 
CMP ASEARCH,515$ 
BHIS 40$ 
35$: BIS ATRE ,SGDDAT 
4O$: MOV RMCS11,$BDDAT 
BIC #“CTRE, SBDDAT 
CMP $SGDDAT , $BDDAT 
BEQ 45$ 
ADD #4, (SP) 
MOVB #14,a(SP) 
SUB #2, (SP) 
JSR PC,a(SP)+ 


ERROR IS NOT SET AND 


iP ie “"ERR'' = 0 
;I1S RMER1 = 0?? 
:NO!! 


1s Amen = O?? 
;‘ ERR" SOULD BE SET 


:IS (ERR™ OK?? 
YES: 


“MOVE. SP TO USER'S ERROR 
:WRITE ERROR NUMBER 


:MOVE SP TO ERROR RETURN 
:REPORT INVALID COMP ERROR 


AND NONE OF THE BITS WHICH SET 


TRE IS NOT SET AND ONE OR MORE BITS WHICH 
*EXPECT ‘'TRE'' = 0 

“WAS DLT, WCE, UPE, NED, NEM 
:PGE , MF OR MDPE SET 

“YES! ! 

:WAS EXCEPTION RECEIVED?? 
:WAS DATA TRANSFERRED?? 


-''TRE'' SHOULD BE SET 
“BAD DATA FOR TYPEOUT 


71S TRE" OK?? 
YES: 


“MOVE. SP TO USER'S ERROR CALL 
;WRITE ERROR N 


NUMBER 
:MOVE SP TO RETURN FOR ERROR 
;REPORT TRE ERROR 


_ CZRMOBO RMOS/3/2 FCINL TST 3 
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SEQ 0205 


me ee rr ek ee ee ee 


115 045364 162716 000010 SUB #10, (SP) :RESTORE (SP) 

116 045370 000240 NOP 

17 045372 45$: 

119 CL EERE RARER EEE 
120 :USING THE FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS: 
121 : .STATUS BITS NOT SET THAT SHOULD BE SET, E.G., ATA AND ILF 
122 : “STATUS BITS SET THAT SHOULD NOT BE SET. E.G.. WCE AND ECH 
123 “NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER 
124 =STATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF 
125 “WRITE LOCK IS ON AND THE COMMAND IS A WRITE. 

127 :GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE 

128 045372 010046 MOV RO,-(SP) -:PUSH RO ON STACK 

129 045374 013700 050544 MOV 515$,R0 =GET FUNCTION CODE 

130 045400 016037 071646 050536 MOV FNCDTB(RO),500$ :STORE ENTRY 

13) 045406 012600 MOV (SP) +,RO -:POP STACK INTO RO 

133 :REPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF 

134 “ATA IS NOT SET AND SHOULD BE SET. 

135 045410 013737 050536 001140 MOV 500$, $GDDAT :GET EXPECTED ATA STATUS 

136 045416 032737 040000 001350 BIT #ERR,RMDS! -IS COMPOSITE ERROR SET ?? 

137 045424 00140 BEQ 50$ “NO !! 

138 045426 052737 100000 001140 BIS HATA, SGDDAT “EXPECT AN ATTENTION 

139 045434 042737 077777 001140 50$: BIC #*CATA,$GDDAT  =:STRIP DONT CARES 

140 045442 013737 001350 001142 MOV RMDSI,$BDDAT :GET RECEIVED ATA 

141 045450 042737 077777 001142 BIC #*°CATA,$BDDAT :STRIP DONT CARES 

142 045456 023737 001140 001142 CMP $GDDAT.$BDDAT :IS ATA OK ?? 

143 045464 00141 BEQ 55$ =YES !! 

144 045466 062716 000004 ADD #4, (SP) -MOVE SP TO USERS ERROR CALL 
145 045472 112776 000006 000000 MOVB  #6,a(SP) “LOAD ERROR # IN CALL 

146 045500 162716 000002 S #2, (SP) “MOVE SP TO ERROR RETURN 

147 045504 00473 JSR PC a(SP)+ “REPORT ERROR 

148 045506 162716 000010 SUB #10, (SP) =RESTORE SP 

149 045512 000240 NOP ae 
130 045514 55$: 

152 -REPORT ERROR IF ILF IS INCORRECT, I.£.. IF ILF DOES NOT COMPARE 
153 “WITH FUNCTION CODE TABLE 

154 045514 013737 050536 001140 MOV 500$, $GDDAT :GET EXPECTED ILF 

155 045522 042737 177776 001140 BIC WA°CILF.$GDDAT :CLEAR ALL OTHER BITS 

156 045530 013737 001352 001142 MOV RMER1I,$BDDAT  :GET RECEIVED ILF 

157 045536 042737 177776 001142 BIC #°CILF.$BDDAT :CLEAR ALL OTHER BITS 

158 045544 023737 001140 001142 CMP S$GDDAT.$BDDAT :IS ILF OK ?? 

159 045552 00141 BEQ 603 “YES |! 

160 045554 062716 000004 ADD #4, (SP) “MOVE SP TO USERS ERROR CALL 

161 045560 112776 000254 000000 MOVB #254.a(SP) “WRITE ERROR NUMBER IN CALL 

162 045566 162716 000002 SUB #2, (SP) “MOVE SP TO ERROR RETURN 

163 045572 00473 JSR PC a(SP) + “REPORT ERROR AND RETURN 

164 045574 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 

165 045600 005037 001140 60$: CLR $GDDAT “CLEAR EXPECTED STATUS 

167 | :REPORT AN ERROR IF WCE IS SET AND SHOULD NOT BE SET 

168 045604 013746 050536 MOV 500$,-(SP) -GET WCE STATUS ENABLE 

169 045610 052716 137777 BIS ¥*CWCE, (SP) “SET ALL OTHER BITS 

170 045614 013737 001346 001142 MOV RMCS21,$BDDAT  ;:RECEIVED STATUS 

171 045622 042637 001142 BIC (SP)+,$BDDAT  :CLEAR WCE IF ENABLED 


SSS 
a 
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SECONDARY ERROR 
e6 045626 001412 

30 062716 G00004 

112776 000026 

162716 000002 
004736 


162716 000010 


Ovo 


013746 050536 


Ov 000009 i ~) 
wr 
Ww 
On 
wi 
os 
o 
wr 
nm 
N 
_— 
oO 


RRRERRRRRR 


001142 


000004 
000164 
000002 


162716 000010 


RLANLSSBLRALR 


LELLLLE 


050536 
000100 


010000 


013746 


BRERA 


MNS SS Ss VM Ss ee eS er 
SBaLE 


001142 
000004 


© 
— 


206 002 
207 046004 162716 000010 
se 046010 


romongnshonsrononrun 
— 3 = 3 = 3 3 I $C) 
DONO UIS Wh 


177777 
004000 


004000 
0040 


00 
007352 
001142 


012746 
032737 
001404 


220 046010 


22 6046 
228 046052 001412 
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BEQ 90$ :BRANCH IF WCE 0 
ADD #4, (SP) :MOVE SP TO USER S ERROR CALL 
000000 MOVB  #26.a(SP) ;WRITE ERROR NUMBER 
SUB #2, (SP) ‘MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ “REPORT ERROR 
SUB #10, (SP) =RESTORE ERROR 
90$: 
= REPORT ERROR IF OPI STATUS IS SET AND SHOULD NOT BE SFT 
MOV 500$,-(SP) -GET OPI STATUS ENABLE 
SIS #*COPI, (SP) *SET ALL OTHER BITS 
001142 MOV RMER11,$BDDAT :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  :CLEAR CPI IF ENABLED 
BEQ 100$ :BRANCH IF OPI Ok 
ADD #4, (SP) ;MOVE SP TO USER'S ERROR CALL 
000000 MOVB #164,a(SP) WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ “REPORT ERROR 
SUB #10, (SP) “RESTORE SP 
100$: 
:REPORT ERROR IF IVC IS SET AND IS NOT ENABLED OR IF IVC IS 
-SET AND VV IS NOT RESET 
MOV 500$,-(SP) :GET IVC STATUS ENABLE 
001350 BIT #VV,RMDS! -IS VV SET 
BEQ 105$ *NO !! 
BIC #IVC, (SP) “YES = IVC SHOULD BE 0 
105$: BIS #*°CIVC, (SP) “SET ALL OTHER BITS 
001142 MOV RMER21,$BDDAT  :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  :CLEAR IVC IF ENABLED 
REQ 1108 “BRANCH IF IVC OK 
ADD SP) *MOVE SP TO USERS ERROR CALL 
000000 MOVB nibs. a(SP) “WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE SP TO ERROR RETURN 
JSR PC. a(SP)+ “REPORT ERROR 
SUB #10, (SP) “RESTORE SP TO NO ERROR 
110$: 
;BIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
- ALL WRITE ERRORS, 
: RMER1 - WLE, WCF. 
: RMER2 - DPE 
Pr RMC - UPE. 
“EACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE 
“WRITE ERROR ENABLE BIT IS RESET. 
=REPORT AN ERROR IF WLE IS SET AND WRITE ERROrs AYE NOT ENABLED, OR IF 
-THE DRIVE IS NOT WRITE PROTECTED 
MOV -1,-(SP) :ASSUME WRITE ERRORS ENABLED 
050536 BIT #WLE, 500$ ;ARE WRITE ERRORS ENABLED ?? 
BEQ 115$ NO 
001350 BIT #WRL,RMDSI 71S THE DRIVE WRITE PROTECTED ?? 
BNE 120$ YES 
115$: BIC #WLE, (SP) RESET “WLE ENABLE 
001142 120$: MOV RMERII,$BDDAT :GET RECEIVED STATUS 
BIC (SP) +, $BDDAT “CLEAR WLE IF ENABLED 
BEQ 125$ “BRANCH IF WLE OK 
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SEQ 0205 


_ SECONDARY ERROR CHECK SUBROUTINE 


iiiies:.... -_ 


229 046054 062716 000004 ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
230 046060 112776 000023 000000 MOVB #23,a(SP) “WRITE ERROR NUMBER IN CALL 
1 04 162716 000002 SUB #2. (SP) “MOVE SP TO ERROR RETURN 
232 046072 004736 ISR PCa (SP)+ “REPORT ERROR AND RETURN 
233 046074 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 
234 046100 : 125$: 
236 :REPORT ERROR IF WCF IS SET AND WRITE ERRORS ARE NOT ENABLED 
237 046100 012746 177777 MOV #-1,-(SP) :ASSUME WRITE ERRORS ENABLED 
046104 052737 004000 050536 BIT #wE, 500$ SARE WRITE ERRORS ENABLED ?? 
239 046112 001002 BNE 130$ YES 
0 046114 042716 000040 BIC #WCF , (SP) ‘DISABLE WCF ERROR 
241 046120 013737 001352 001142 130%: MOV RMER11,$BDDAT :GET RECEIVED STATUS 
242 046126 042637 901142 BIC (SP)+,$BDDAT | :RESET WCF IF ENABLED 
243 046132 001412 BEQ 135$ “BRANCH IF WCF OK 
244 046134 062716 000004 ADD #4, (SP) “MOVE SP TO USERS ERROR CALL 
245 046140 112776 000025 000000 MOVB  #25,a(SP) “WRITE ERROR NUMBER IN CALL 
246 046146 162716 000002 SUB #2, (SP) “MOVE SP TO ERROR RETURN 
247 046152 004736 JSR PC-a(SP)+ “REPORT ERROR 
248 046154 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 
349 046160 1358: 
251 :REPORT ERROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED 
252 046160 012746 177777 MOV #-1,-(SP) :ASSUME WRITE ERRORS ARE ENABLED 
253 046164 032737 004000 050536 BIT mat. 500$ TARE WRITE ERRORS ENABLED ?? 
254 046172 001002 BNE 140$ “YES !! 
255 046174 042716 000010 BIC HDPE, (SP) “RESET DPE ENABLE 
256 046200 013737 001400 001142 140%: MOV RMER21,$BDDAT :GET RECEIVED STATUS 
257 046206 042637 001142 BIC (SP)+,$BDDAT § :RESET DPE IF ENABLED 
258 046212 001412 BEQ 145$ “BRANCH IF DPE OK 
259 046214 062716 000004 ADD #4, (SP) sMOVE SP TO USERS ERROR CALL 
260 046220 112776 000040 000000 MOVB  #40,a(SP) “WRITE ERROR NUMBER IN CALL 
046226 162716 000002 SUB #2, (SP) “MOVE SP TO ERROR RETURN 
262 046232 004736 JSR PC. a(SP)+ “REPORT ERROR 
263 046234 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 
264 046240 145$: 
266 :REPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED 
267 046240 012746 177777 MOV #-1,-(SP) -ASSUME WRITE ERRORS ARE ENABLED 
268 046244 032737 004000 050536 BIT mai. 500$ ZARE WRITE ERRORS ENABLED ?? 
046252 001002 BNE —_—-150$ “YES 
270 046254 042716 020000 | BIC #UPE,(SP) - Heer UPE ERROR 
271 046260 013737 001346 001142 159%: MOV RMCS21.$BDDAT  :GET RECEIVED STATUS 
272 046266 042637 001142 BIC (SP)+,$BDDAT  :RESET UPE IF ENABLED 
273 046272 001412 BEQ 155$ “BRANCH IF UPE Ok 
274 046274 062716 000004 ADD #4, (SP) “MOVE SP TO USERS ERROR CALL 
275 046300 112776 000024 000000 MOVB  #24,a(SP) “WRITE ERROR NUMBER IN CALL 
6 046 162716 000002 SUB #2, (SP) “MOVE SP TO ERROR RETURN 
277 046312 004736 JSR PC. a(SP)+ “REPORT ERROR AND RETURN 
278 046314 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 
279 046320 155$: 
281 a ‘;REPORT AN ERROR _IF_IAE IS SET AND IS NOT ENABLED 
282 046320 013746 050536 MOV 500$,-(SP) ET IAE ENABLE 
283 046324 052716 175777 BIS #*CIAE, (SP) “SET ALL OTHER BITS - 
284 046330 013737 001352 001142 MOV RMER11.$BDDAT  :GET RECEIVED STATUS 
285 046336 042637 001142 BIC (SP)+, $BDDAT :CLEAR IAE IF ENABLED 


| SECONDARY ERROR CHECK SUBROUTINE 
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SEQ 0206 


A 


286 046342 001412 BEQ 160$ 7BRANCH IF IAE IS OK 

287 046344 062716 000004 ADD #4, (SP MOVE SP TO USERS ERROR CALL 
288 046350 112776 000166 000000 MOVB #166, 5(SP) WRITE ERROR NUMBER 

289 0463556 162716 000002 SUB #2, (SP) :MOVE SP TO ERROR RETURN 
290 046362 004736 JSR PC,a(SP)+ ;REPORT ERROR AND RETURN 


291 046364 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR 
292 046370 1608: 
29% :BIT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
296 ‘ RMCS1 = TRE 
297 : RMCS2 = DLT.NEM,MXF 
298 : RMDS - LBT 
299 : RMER1 = AOE 
300 ;NOTE : 
301 LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 
302 oe REGISTER IS WRITTEN 
304 an AOE CANNOT BE SET IF LAT IS NOT ALSO SET 
306 : TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE 
308 
309 ;REPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
310 046370 012746 177777 MOV -1,-(SP) SSUME ERRORS ARE ENABLED 
311 046374 032737 001000 050536 BIT #AOE , 5008 "ARE ERRORS ENABLED ?? 
312 046402 001002 BNE 165$ YES 
313 046404 042716 100000 BIC #DLT, (SP) RESET DLT ENABLE 
314 046410 013737 001346 001142 165$: MOV RMCS2I1.$BDDAT :GET RECEIVED STATUS 
315 046416 042637 001142 BIC (SP) +, $8DDAT “CLEAR DLT IF ENABLED 
316 046422 001412 BEQ 170$ “BRANCH IF DLT IS OK 
317 046424 062716 000004 ADD #4, (SP) “MOVE SP TO USERS ERROR CALL 
318 046430 112776 000032 000000 MOVB  #32,a(SP) ;WRITE ERROR NUMBER IN CALL 
319 046436 162716 000002 SUB #2, (SP) MOVE SP TO ERROR RETURN 
320 046442 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
321 046444 162716 000010 SUB #10, (SP) *MOVE SP TO NO ERROR 
356 6450 170$: 
: -REPORT ERROR IF NEM IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
325 046450 012746 177777 MOV #-1,-(SP) :ASSUME ERRORS ARE ENABLED 
326 046454 032737 001000 050536 BIT PAE. 500$ ;ARE ERRORS ENABLED ? 
327 046462 001002 BNE 175$ -YES ! 
328 046464 042716 004000 BIC #NEM, (SP) OT SAALE NEM 
329 046470 013737 001346 001142 175$: MOV RMCS21,$BDDAT  :GET RECEIVED STATUS 
330 046476 042637 001142 BIC (SP)+,$BDDAT | :CLEAR NEM IF ENABLED 
331 046502 001412 BEQ 180$ “BRANCH IF NEM IS OK 
332 046504 062716 000004 ADD 4,(S *MOVE SP TO USERS ERROR CALL 
333 046510 112776 000167 000000 MOVB  #167,a(SP) “WRITE ERROR NUMBER IN CALL 
334 0446516 162716 000002 SUB #2, (SP) “MOVE SP TO ERROR RETURN 
335 046522 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
336 046524 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 
337 04653 1808: 
339 :REPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
340 046530 012746 177777 MOV #~1,-(SP) -ASSUME ERRORS ARE ENABLED 
341 046534 032737 001000 050536 BIT HACE , 500% *ARE DATA ERRORS ENABLED ?? 
342 046542 001002 BNE 185$ “YES |! 


343 046544 


394 772 
395 046776 
396 
397 
398 046776 
399 047002 


004736 
162716 


012746 


1es716 


Orei ae 


Su 


2k 
ROWVSNN 


arate 
NNNNNES 


ont 
se 
™m 
— 
oO 
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001000 
091346 
001142 
000004 
000033 
000002 
800010 


177777 
001000 


002000 
001000 
001352 
001142 


002000 
000200 


177777 
0002090 


177777 
000200 


= - a cee oe 


001142 


000000 


050536 
001350 


001142 


000000 


001370 
050536 


050536 


001142 


000000 


050536 


185$: 


200$: 


:BIT 07 
: HEADER 


ERROR IF AOE IS SET AND 
MOV #~-1,-(SP) 


ERR 


RMER1 = HCRC.HCE.FER 
RMER2 - BSE 


AMXF , (SP) 


RMCS21, SBDDAT 
(SP)+, $BDDAT 


1908 

(SP) 
+35. a(SP) 
#2, (SP) 
PC a(SP)+ 
#10, (SP) 


vaok, 500$ 
191$ 
ALBT ,RMDSI 
195$ 
#AOE , (SP) 


RMER11 , S$BDDAT 
(SP) +, $BDDAT 
3 


. (SP) 
420. a (SP) 
#2, (SP) 
PC ,@(SP)+ 
#10, (SP) 
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:DISABLE MXF ERROR 


:GET RECEIVED SiATUS 


WRIT E ERROR NUMBER IN CALL 


“REPORT ERROR AND RETURN 
“MOVE SP TO NO ERROR 


DATA ERRORS ARE NOT ENABLED 


sASSUME DATA ERRORS ARE ENABLED 
¢ARE DATA ERRORS EANBLED ?? 


:1S iar ALSO SET ?? 
;YES 


‘ DTSABL E AOE 

:GET RECEIVED STATUS 

;CLEAR AOE IF ENABLED 
:BRANCH IF AOE IS OK 

;MOVE SP TO USERS ERROR CALL 


:WRITE ERROR 


NUMBER 
sMOVE SP TO ERROR RETURN 


:REPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


a THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 


sRESET THE = BIT (HCE) IF HEADER or oa INHIBIT IS SET 
BIT #HCI ,RMOF I :IS T SET 


201$: 
sREPORT 


205$: 


210$: 
;REPORT 


BEQ 
BIC 


201$ 
#HCE , 500$ 


:YES = DISABLE ALL HEADER ERRORS 


AN ERROR IF HCRC IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #~1,-(SP) ED 


BIT 


V 
BIT 


#HCE , 500$ 
205$ 
MHCRC AS 


SP) 
RIMER11,$BDDAT 
(SP) +, $BDDAT 
give 


, (SP) 
135. a(SP) 
# P) 


PC a(SP)+ 
#10, (SP) 


ERROR IF HCE 2 = AND 
MO #~1,-(SP) 


muck, 5008 


ASSUME ERRORS ENABL 
SARE HEADER ERRORS ENABLED ?? 


;VEo 

‘DISABLE HCRC 

;GET RECEIVED STATUS 
;RESET HCRC IF ENABLED 
:BRANCH IF HCRC IS OK 
:MOVE SP TO USERS ERROR CALL 
:WRITE ERROR NUMBER IN CALL 
:MOVE SP TO ERROR RETURN 


:REPORT ERROR AND RETURN 
:MOVE SP TO NO ERROR 


HEADER ERRORS ARE NOT ENABLED 


;ASSUME ERRORS ENABLED 
;ARE ERRORS ENABLED ?? 


SEQ 0207 


a 


ee eee 
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_ SECONDARY ERROR CHECK SUBROUTINE 


400 047010 


5 ee ee ee et ee ee Set et ee See et Set Set et 
MOMPONIPIMONPIAD) 2 @ RS MR SS 


456 


047216 


047244 


0 
162716 


012746 


36 
162716 


000200 


000004 
000037 
000002 
000010 


177777 | 


000200 


100000 
001400 
001142 


000004 
000354 
000002 


000010 


177777 
000100 


000400 
001346 
001142 
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001142 


000000 


050536 


001142 


000000 


050536 


001142 


000000 


050536 


001742 
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BNE 215$ -YES !! 
BIC #HCE, (SP) [DISABLE HCE 
215$: MOV RMERII,$BDDAT :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  :CLEAR HCE IF ENABLED 
BEQ 220$ “BRANCH IF HCE IS OK 
ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
MOVB #36,a(SP) “WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) -MOVE SP TO ERROR RETURN 
JSR PC. a(SP)+ =REPORT ERROR AND RETURN 
SUB #19, (SP) “MOVE SP TO NO ERROR 
2203: 
;REPORT ERROR IF FER IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) ASSUME FER IS ENABLED 
BIT #HCE , 500$ ARE HEADER ERRORS ENABLED ?? 
BNE 225$ YES 
BIC #FER,(SP) DISABLE FER 
225%: MOV RMER1I,$BDDAT  :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  :RESET FER IF ENABLED 
BEQ 230$ “BRANCH IF FER OK 
ADD #4, (SP) -MOVE SP TO USERS ERROR CALL 
MOVB  #37.a(SP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) =MOVE SP TO ERROR RETURN 
JSR PC.a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) “MOVE SP TO NO ERROR 
250$: 
:REPORT ERROR IF BSE Is SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) :ASSUME ERRORS ENABLED 
BIT mck, 500$ “ARE THEY ENABLED ?? 
BNE (235$ “YES |! 
BIC #BSE, (SP) -DISABLE BSE 
235$: MOV RMER21,$BDDAT :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  ;:CLEAR BSE IF ENABLED 
BEQ 240$ “BRANCH IF BSE OK 
ADD #4, (SP) =MOVE SP TO OSERS ERROR CALL 
MOVB  #354,a(SP) “WRITE ERROR NUMBER 
SUB #2, (SP) ;MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ REPORT ERROR AND RETURN 
SUB #10, (SP) “MOVE SP TO NO ERROR 
2408: 
-BIT 06 Of THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
“FIELD ERRORS, |. 
: RMCS2 - MDPE 
=e RMER1 - DCK,ECH 
: -ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 
“DCK IS‘SET. 
;REPORT ERROR IF MDPE IS SET AND IS NOT ENABLED 
MOV #-1,-(SP) ASSUME ENABLED 
BIT #ECH, 500% "ARE DATA FIELD ERRORS ENABLED ?? 
BNE 245$ “YES 
BIC 4#MDPE , (SP) : OISBAL — MDPE 
245$: MOV RMCS21.$BDDAT  :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  :CLEAR MDPE IF ENABLED 
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457 047250 


488 047400 
489 047402 
490 047410 
491 047412 
492 047416 
493 047424 
494 047430 
495 047432 
496 047436 
497 047444 
498 047450 
499 047452 
500 047456 


~ 


162716 


012746 
032737 
001002 


162716 


012746 


162716 


SECONDARY ERROR CHECK SUBROUTINE 


000004 
000027 
000002 


000010 


177777 
000100 


1000060 
001352 
001142 
000004 
000030 
000002 


000010 


177777 
000100 


100000 


000100 
001352 
001142 


000004 
000031 
000002 


000010 


B } 
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900000 


050536 


001142 


000000 


050536 
001370 
001552 


001142 


000000 


2508: 
>REPORT 


255$: 


260$: 
;REPORT 


265$: 
270$: 


275$: 


BEQ 250$ 
ADD #4, (SP) 
MOVB 

SUB 


#27, a(SP) 
#2, (SP) 


JSR PC a(SP)+ 
SUB #10, (SP) 


ERROR IF at IS SET AND 
MOV #~i ,~ (SP) 


BIT #ECH,500$ 
BN 255$ 
BIC #DCK, (SP) 


MOV RMER11,$BDDAT 


BIC (SP) +, $BDDAT 
BEQ 2608 

ADD (SP) 

MOVB 730. a(SP) 
SUB #2, (SP) 


JSR PC,a(SP)+ 
SUB #10, (SP) 


ERROR IF ECH IS SET AND, 
DATA FIELD _— ARE NOT ENABLED, OR 


ECI IS SET 


DCK IS NOT SET. 
MOV #~-1 ,-(SP) 


BIT #ECH,500$ 
265$ 


BIT #ECI,RMOF I 
BIT ADCK,RMER11 
BNE 270$ 

BIC MECH, (SP) 


ADD #4, (SP) 
MOVB #31 ,a(SP) 
SUB #2, (SP) 


JSR PC. a(SP)+ 
#10, (SP) 


“WRIT E ERROR NUMBER IN 


;BRANCH IF MDPE OK 


;MOVE SP TO USERS ERROR CALL 
i WRITE ERROR NUMBER + CALL 
MOVE SP TO ERROR RETURN 

“REPORT ERROR AND RETURN 


“MOVE SP TO NO ERROR 


DATA FIELD ERRORS ARE NOT ENABLED 


ASSUME ENABLED 


ARE | THEY ENABLED ?? 


‘DISABLE DCK 
;GET RECEIVED STATUS 


: CLEAR DCK IF Nery 


:MOVE SP TO NO ERROR 


sASSUME ENABLED 


oN ERRORS ENABLED ?? 
‘is ECI SET ?? 


‘Ts Dk ALSO SET ?? 
3 YES 


‘DISABLE ECH 
:GET RECEIVED STATUS 


;CLEAR ECH IF ENABLED 
;BRANCH IF ECH IS OK 

“MOVE SP TO USERS ERROR CALL 
:WRITE ERROR NUMBER IN CALL 
;MOVE SP TO ERROR RETURN 
;REPORT ERROR AND RETURN 
;MOVE SP TO NO ERROR 
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NINA) 2 2 2 oD es ss 


2 
23 


047436 
047464 
047466 


047536 
047542 


047544 
047552 


047572 
7600 


04 
047602 
047610 


047656 
047662 





022737 


013737 
163737 
006357 
063737 


032737 
001403 
013737 


023737 
001416 


005046 
013746 
163716 


012746 


022626 


SECONDARY ERROR CHECK SURROUT INE 


000030 
050510 


001340 
040000 


000002 
000010 


001340 
001414 
001140 
001416 
000010 
001416 


001140 


000010 


001340 
001414 


000400 
000002 


000002 


000004 
000002 


; 
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050544 


001142 
001336 


000000 


001140 
001140 


001140 
001346 
001140 
001342 
001142 
000000 


001412 


ss ERERAARAAAERAAARAEARAAAAAAEAAAERAERRARAAAAEKARAARHEAAAEAEAAAAERARAAEHES 


: REPORT 
280$: 


;REPORT 
285$: 


2908: 


300$: 


;COMPUTE EXPECTED SECTOR, TRACK 


CMP ASEARCH,515$ 
BLO 280$ 
JMP 355$ 


: *PERFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS 


SURE ISIOIIIGIOIIIIOISISIIOIOISIEISIISIIIIOISIUIOISIIUIUIDIOIUIOIOIUINIIIDIOIDISIIDIDIDIIDIDIDIDIIUINOININI SE 
iWAS DATA TRANSFERRED ? 

:BR IF YES 

3NO = EXIT 


= IF RMWC NOT ZERO — TRE IS ZERO 


Sees.” , SBDDAT 
BIT ATRE,RMCS11 
285$ 


JSR PC. a(SP)+ 
SUB #10, (SP) 


a IF RMBA IS NOT CORRECT 


RMWC I, $GDDAT 
SUB RMWCO, $GDDAT 
$GDDAT 


ADD RMBAO , $SGDDAT 

BIT #BAI ,RMCS21 
90$ 

MOV RMBAO , $GDDAT 

CMP SGDDAT ,RMBAI 


rie. a(SP) 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #10, (SP) 


MOV RMWCI ,-(SP) 
SUB RMWCO, (SP) 


MOV #256. ,-(SP) 
BIT #B1T1,RMCS10 
300$ 


ADD #2, (SP) 

4 (SP) 
SUB S ali 
CMP (SP)+, (SP) + 


ae D COUNT ZERO?? 


: TRANSFER ERROR DETECTED?? 
sVES: 3 


;ERROR NUMBER 

;GOOD DATA FOR TYPEOUT 

;MOVE SP TO RETURN FOR ERROR 
sREPORT WORD COUNT NOT ZERO 
sRESTORE (SP) 


;GET WORD COUNT AT END OF TRANSFER AND 
¢ SUBTRACT STARTING WORD COUNT. 


“ADD STARTING BUS ADDRESS 


:WAS BUS ADDRESS INHIBIT (BAI) SET ?? 
“ADDRESS SHOULD NOT HAVE CHANGED 


arty ADDRESS OK?? 
:BAD DATA FOR TYPEOQUT 


; ERROR NUMBER 

sMOVE SP TO RETURN FOR ERROR 
;REPORT UNEXPECTED ADDRESS 
sRESTORE (SP) 


ca TRANSFERRED FROM WORD COUNT 


;NUMBER OF SECTORS TRANSFERRED 
WORD COUNT AT END OF TRANSFER AND 


> SUBTRACT STARTING WORD COUNT. 


sASSUME 256. WORDS PER oo 
s HEADER & DATA COMMAND ? 


NO : 
CHANGE TO 258. WORDS PER SECTOR 
; INCREMENT SECTOR COUNT 


: SUBTRACT ONE SECTOR'S WORTH 
= CONTINUE IF NOT DONE 


:RESTORE STACK 
AND CYLINDER ADDRESS FROM 


ms re ee eee 


a 


D1 
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58 :NUMBER OF SECTORS 

59 047722 013737 001446 050536 MOV RMDCO, 500$ :STORE ORIGINAL CYLINDER 

60 047730 013737 001420 050540 MOV RMDAO, 505$ “STORE ORIGINAL TRACK 

61 047736 013737 001420 050542 MOV RMDAO, 510$ “STORE ORIGINAL SECTOR 

62 047744 013737 001334 050546 MOV LSTRK.520$ =STORE LAST TRACK 

63 047752 000337 050546 SWAB ~=—s-«s S20 “GET TRACK ADDRESS TO LO BYTE AND 
64 047756 005237 050546 INC 520$ ‘INCREMENT TO GET TOTL # OF TRACKS. 
66 047762 042737 000377 050540 BIC #*°C<TADMSK>, 505$ :SAVE TRACK ADDRESS salts AND 
67 047770 000337 050540 SWAB  505$ :SWAP TRACK ADDRESS TO LOW BYTE. 
68 047774 042737 177400 050542 BIC #*C<SADMSK>,510$° :SAVE SECTOR ADDRESS "BITS 
$9 050002 062637 050542 ADD (SP)+,510$ 

71 050006 023727 050542 000040 310%: CMP 510$,432. ;SECTOR OVEFLOWED?? 

72 050014 103406 BLO 315$ “NO! 

73 050016 005237 050540 INC 505$ SUNCREMENT TRACK 

74 050022 162737 000040 050542 SUB #32. ,510$ ‘ADJUST SECTOR 

75 050030 000766 BR 310$ > TRY AGAIN 

77 050032 023737 050540 050546 315%: CMP 505$,520$ : TRACK OVERFLOWED?? 

78 050040 103407 BLO 320$ NO! 

79 050042 005237 050536 INC 500$ SUNCREMENT CYLINDER 

80 050046 163737 050546 050540 SUB 520$,505$ “ADJUST TRACK 

81 050054 000766 BR 315$ =TRY AGAIN 

82 050056 000240 NOP 

84 -REPORT ERROR IF ‘‘LBT’* IS NOT CORRECT 

85 050060 320$: 

86 050060 005037 001140 CLR SGDDAT :SET GOOD DATA FOR LBT = 0 

87 050064 023727 050536 001466 CMP 500$, 4822. ;SHOULD LBT BE SET?? 

88 050072 101407 BLOS 

89 050074 032737 002000 001352 BIT #IAE,RMER1I AS IAE SET ?? 

90 050102 001003 BNE 325$ -YES - LBT SHOULD NOT BE SET 

91 050104 012737 002000 001140 MOV #LBT ,$GDDAT “SET GOOD DATA FOR LBT = 1 

92 050112 013737 001350 001142 325%: MOV RMDSI.$BDDAT § _:BAD DATA FOR TYPEOUT 

9% 050120 042737 175777 001142 BIC #*CLBT.$BDDAT 

94 050126 023737 001140 001142 CMP SGDDAT.$BDDAT  ;:IS LBT CORRECT?? 

95 050134 001413 BEQ 3308 =YES!! 

96 050136 062716 000004 ADD (SP) | 

97 050142 112776 000017 000000 MOVB ay. a(SP) :ERROR NUMBER 

98 050150 162716 000002 SUB #2, (SP) =MOVE SP TO RETURN FOR ERROR 
99 050154 004736 JER PC a(SP)+ :REPORT LBT IS WRONG 
100 050156 162716 000010 SUB #10, (SP) “RESTORE (SP) 
101 050162 000240 NOP 
103 -REPORT ERROR IF “AOE” IS INCORRECT 
104 050164 005037 001140 330$: CLR SGDDAT -SET FOR AOE = 0 
105 050170 032737 002000 001352 BIT HIAE,RMER1! “WAS ''IAE'' DETECTED?? 

106 050176 001031 BNE 340$ = YES="‘AOE’' SHOULD BE ZERO 

107 050200 023727 050536 001464 CMP 500$, 4822. ; SHOULD AOE BE SET? 
108 050206 101425 BLOS  340$ NO! 

109 050210 005737 050540 TST 505$ ‘eave 
110 050214 001012 BNE 335$ “YES 
111 050216 005737 050542 TST 510$ 

112 050222 001007 BNE 335$ VES 1! 

113 050224 032737 000010 050544 BIT #F2,515$ ;WAS THIS READ OR WRITE CHECK ?? 
114 050232 001413 BEQ 340$ © “NO 


ee re er ee ee 
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115 050234 005737 001340 TST RMWC I sWAS ALL DATA TRANSFERRED ?? 
116 050240 001410 BEQ 340$ =YES !! , 
117 050242 012737 001000 001140 335%: MOV HAOE . SGDDAT “SET FOR AOE = 1 
118 050250 005037 050540 CLR 505$ “CLEAR EXPECTED TRACK 
119 050254 012737 000001 050542 MOV #1,510$ “EXPECT SECTOR = 1 
120 050262 013737 001352 001142 340$: MOV RMER11,$BDDAT ;BAD DATA FOR TYPEOUT 
121 650270 042737 7176777 001142 BIC #*CAOE , $BDDAT 
122 050276 023737 001140 001142 CMP $GDDAT.$BDDAT  ;1S AOE CORRECTY?? 
123 050304 001413 BEQ 345$ “YES! ! 
124 050306 062716 000004 ADD #4, (SP) 
125 050312 112776 000020 000000 MOVB  #20,a(SP) :ERROR NUMBER 
126 050320 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
127 050324 004 JSR PC a(SP)+ “REPORT AOE IS WRONG 
128 050326 162716 000010 SUB #10, (SP) “RESTORE (SP) 
129 050332 000240 NOP 3 
131 =REPORT ERROR IF RMDA IS NOT CORRECT 
132 050334 032737 002000 001352 345%: BIT #IAE,RMER11 :WAS THERE AN IAE ERROR ?? 
133 050342 001062 BNE 355$ “YES = DONT CHECK RMDA,RMDC 
134 050344 013737 050540 001140 MOV 505$,$GDDAT =SETUP EXPECTED DISK ADDRESS 
135 050352 000337 001140 SWAB = $GDDAT 
136 050356 113737 050542 001140 MOVB  510$,$GDDAT 
137 050364 013737 001344 001142 MOV RMDAI,$BDDAT — ;SETUP RECEIVED DISK ADDRESS 
138 050372 023737 001140 001142 CMP $GDDAT.$BDDAT :COMPARE EXPECTED & RECEIVED 
139 050400 901413 BEQ 350$ “BRANCH IF EQUAL 
140 050402 062716 000004 ADD #4, (SP) 
141 050406 112776 000021 000000 MOVB  #21,a(SP) - ERROR NUMBER 
142 050414 162716 000002 SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
143 050420 004736 JSR PC. a(SP)+ =REPORT BAD DISK ADDRESS 
144 050422 162716 000010 SUB #10, (SP) “RESTORE (SP) 
145 050426 000240 NOP 
6 
147 “REPORT ERROR IF RMDC IS INCORRECT 
148 050430 013737 050536 001140 350%: MOV 500$,$GDDAT -SETUP EXPECTED CYLINDER 
149 050436 042737 176000 001140 BIC #°C1777, $GDDAT 
150 050444 013737 001372 001142 MOV RMDCI, $BDDAT :SETUP RECEIVED CYLINDER 
151 050452 023737 001140 001142 CMP $GDDAT,$BDDAT :COMPARE CYLINDERS 
152 050460 001413 BEO 355$ “BRANCH IF EQUAL 
153 050462 062716 000004 ADD #4, (SP) 
154 050466 112776 000022 000000 MOVB #22,a(SP) :ERROR NUMBER 
155 050474 162716 000002 SUB #2, (SP) s:MOVE SP TO RETURN FOR ERROR 
156 050500 004736 JSR PC a(SP)+ “REPORT BAD CYLINDER 
157 050502 162716 000010 SUB #10, (SP) “RESTORE (SP) 
158 050506 000240 NOP 
160 050510 062716 000004 355$: ADD #4, (SP) :MOVE (SP) TO ERROR CALL 
161 050514 105776 000000 TSTB. ~—_ a SP) “WAS ERROR FOUND?? 
162 050520 001403 BEQ 360$ 
163 050522 062716 000604 ADD #4, (SP) :MOVE (SP) TO ERROR RETURN 
164 050526 000402 BR 365$ 
165 050530 162716 000004 3608: SUB #4, (SP) s:MOVE (SP) TO NO ERROR RETURN 
166 050534 000207 365$: RTS PC 
168 050536 000000 500$: .WORD 0 = CYLINDER 
169 050540 000000 505$: .WORD 0 > TRACK 
170 050542 000000 510$: .WORD 0 >SECTOR 
177 050544 000000 515$ “WORD O >FUNCTION CODE 


a 
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72 050546 000000 520$: -WORD 0 STOTAL # OF TRACKS = LAST TRACK ¢1 


yt 


We rainy a. 


Se eee ee 


SEQ ¢ 


G 1 
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“OMPOSITE ERROR CHECK SUBROUTINE 


} .SBTTL COMPOSITE ERROR CHECK SUBROUTINE 

z =: THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND 

4 “RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS 

5 -MASKS AND REPORTS AN ERROR IF ANY-BITS ARE LEFT ON AFTER 

z -THE MASKS ARE APPLIED. 

8 : CALL: 

9 -(1) JSR PC, CMPERRSTS 

10 : . WORD MASK FOR ERROR REGISTER 1 

11 : . WORD MASK FOR ERROR REGISTER 2 

iF : BR 22? RETURN HERE IF NO ERROR 

1 : NOP RETURN HERE TO REPORT AN ERROR 
14 : ERROR ERROR NUMBER DEFINED BY SUB 

15 : JSR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
1g ; 77? RETURN HERE IF NO MORE ERRORS 
18 -NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
Ms :BE ZERO 
3 050550 CMPERRSTS: 
23 -MASK AND STORE THE CONTENTS OF RMER1 AND RMER2 
24 050550 013737 001352 001176 MOV RMER11,$1TMP1 :STORE RMER1 AT TEMP STORAGE 
25 050556 047637 000000 001176 BIC a(SP),$TMP1 “MASK  RMER1 
26 050564 062716 000002 ADD #2, (SP) =MOVE SP TO NEX 
27 050570 013737 001400 001200 MOV RMER21,$TMP2 :STORE RMER2 AT Te STORAGE 
8 050576 047637 000000 001200 BIC a(SP),$TMP2 =MASK RMER2 

| 

50 
31 :CLEAR USER'S ERROR CALL : 

32 050604 062716 000006 ADD #6, (SP) :MOVE SP TO USER'S ERROR CALL 
33 050610 105076 00000 CLRB a(SP) : CLEAR ERROR NUMBER 

‘ 050614 162716 060004 SUB #4, (SP) “LEAVE SP AT NO ERROR RETURN 
36 :SEE IF THERE ae ANY ERRORS aid er I.E.. $TMP1 

37 050620 005737 001176 TST Y ERRORS TO REPORT?? 

38 050624 001420 =: BEQ 5 

39 050626 013737 1176 001142 MOV $TMP1, $BDDAT RECEIVED STATUS FOR TYPEOUT 
40 050634 005037 1140 CLR $GDDAT :EXPECTED STATUS FOR TYPEOUT 
41 050640 062716 0004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
42 050644 112776 0066 000000 MOVB #66,a(SP) -CORRECTABLE DATA CHECK ERROR # 
43 050652 162716 £00002 SUB #2, (SP) -MOVE SP TO RETURN FOR ERROR 
44 050656 004736 JSR PC,a(SP)+ :REPORT ERROR VIA USER 

45 050660 162716 00010 SUB #10, (SP) -MOVE SP BACK TO BRANCH 

46 050664 000240 NOP 
29 

50 >SEE IF THERE ARE ANY ERRORS TO REPORT IN RMER2 ($TMP2) 

51 050666 005737 001200 TST STMP2 : ANY _— IN RMER2? 

26 050672 001420 BEQ 10$ :NO! 

54 050674 013737 001200 001142 MOV $TMP2, $BDDAT :RECEIVED STATUS FOR TYPEOUT 
55 050702 005037 001140 CLR SGDDAT -EXPECTED STATUS FOR TYPEOUT 
S56 050706 062716 000004 ADD #4, (SP) -MOVE SP TO USER'S ERROR CALL 
57 050712 112776 000067 000000 MOVB #67,a(SP) -WRITE ERROR NUMBER IN USER'S CALL 


a 
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58 050720 1162716 
004736 


59 Senge 


71 050760 


162716 
000240 


“OMPOSITE ERROR /CHE CK SUBROUT INE 


000002 
000010 


000004 


H 1 
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10$: 


#2,(SP) 
PC a(SP)+ 
#10, (SP) 


? 


:MOVE SP TO RETURN FOR ERROR 
zREPORT ERROR VIA USER 
sMOVE SP TO NO ERROR RETURN 


: AUGMENT ine RETURN anbress IF ANY ERROR WAS DETECTED 


20%: 
30$: 


sMOVE SP TO USER'S ERROR CALL 
sWAS THERE AN ERROR CAILED?? 


NO! ! 
:YES - MOVE SP TO ERROR RETURN 


sMOVE SP TO NO ERROR RETURN 
sRETURN TO USER 


NEG O215 


a 
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-SBTTL DEVICE SELECT SUBROUTINE 


2 
3 : THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE 
: : TEST QUEUE. 
6 ; CALL: 
? -(1) JSR PC ,DEVSEL 
8 2 (2) BR 7? RETURN IF NO ERROR 
9 : (3) NOP ' RETURN IF ERROR 
10 - (4) ERROR ERROR DEFINED BY SUBROUTINE 
12 050762 DEVSEL: 
14 -CLEAR USER'S ERROR CALL 
15 050762 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR 
16 050766 105076 000000 CLRB a(SP) :CLEAR LOW ORDER BYTE OF CALL 
4 050772 162716 000004 SUB #4, (SP) :MOVE SP BACK 
19 :SAVE USER'S INFORMATION AND SETUP REGISTERS 
20 050776, 013746 000004 MOV ERRVEC,-(SP) :zPUSH ERRVEC ON STACK 
051002 013746 000006 MOV ERRVEC+2,-(SP) PUSH ERRVEC+2 ON STACK 
051 010046 7 MOV RO,-(SP) ::PUSH RO ON STACK 
051010 010946 MOV R1,-(SP) >:PUSH R1 ON STACK 
21 051012 012737 051132 000004 MOV #20$, ERRVEC :SETUP FOR BUS TIMEOUT 
22 051020 012737 000300 000006 MOV #PR6,ERRVEC+2 
23 051026 013700 001276 MOV $SBASE ,RO ;RO = UNIBUS ADDRESS 
$e 051032 013701 001466 MOV TSTQUE .R1 :R1 POINTS TO DEVICE NUMBER 
26 -SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE 
27 051036 111160 000010 MOVB (R1),RMCS2(RO) ;:WRITE UNIT SELECT BITS 
28 051042 016037 000000 001176 MOV RMCS1(RO),$TMP1 :GET ‘DVA'' STATUS 
¢° 051050 016037 000010 001174 MOV RMCS2(RO),$TMPO ;GET ‘NED*' STATUS 
4 051056 032737 010000 001174 BIT ANED, STMPO :I1S DEVICE NONEXISTENT ? 
2 051064 001407 BEQ 10$ sNO!! 
33 051066 062766 000004 000010 ADD #4,10(SP) :MOVE SP TO USERS ERROR CALL 
34 051074 112776 000111 000010 MOVB #111,910(SP) WRITE ERROR NUMBER 
$7 051102 000422 BR 30$ 
37 051104 032737 004000 001176 10$: BIT ADVA,STMP1 :IS DEVICE AVAILABLE ? 
38 051112 001021 BNE 35$ :YES!! 
39 051114 062766 000004 000010 ADD #4,10(SP) :MOVE SP TO USERS ERROR CALL 
40 051122 112776 000112 000010 MOVB #112,010(SP) :WRITE ERROR NUMBER 
re 051130 000407 BR 30$ 
4 :HANDLE BUS TIMEOUT 
44 051132 022626 20$: CMP (SP)+,(SP)+ sADJUST SP 
45 051134 062766 000004 000010 ADD #4,10(SP) :MOVE SP TO USERS ERROR CALL 
46 051142 112776 000113 000010 MOVB #113,a10(SP) :WRITE BUS TIMEOUT ERROR NUMBER /’ 
4? 051150 162766 000002 000010 30$: SUB #2.,10(SP) -ADJUST RETURN TO ‘NOP’ PRECEDING 
ry >THE ERROR CALL 
SO -RESTORE USERS DATA AND RETURN TO ADDRESS ON STACK 
51 051156 35$: 
051156 012601 MOV (SP)+,R1 >:POP STACK INTO R1 
HS 012600 MOV (SP)+,RO >:POP STACK INTO RO 


62 012637 000006 MOV (SP) +, ERRVEC+2 7;POP STACK INTO ERRVEC+2 





: ee eee 
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SE VICE SELECT SUBROUTINE 
051166 0612637 000004 MOV (SP)+ .ERRVEC >7POP STACK INTO ERRVEC 
£2 0517172 000207 RTS PC sEXIT 
ay 
a . 


SEQ OC 1/ 


ee = —_ 
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7 
7RMOBO RMOS/3/2 FCINL TST 3 MACRO v04.00 4-APR-81 01:15:59 PAGE 29 
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.SBITL SEEK STATUS CHECK SUBROUTINE 


THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS 
=STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER. 


“THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED 
[AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE ‘ERROR'’ TRAP 
; OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOI.LOWS: 


“CALL: 
:(1) JSR PC,SEKSTS 
. BR ??? RETURN HERE IF NO ERROR 


2 

z 

4 

5 

4 

vd 

-) 

10 

14 

15 

14 : NOP RETURN HERE TO REPORT AN ERROR 
15 : ERROR ERROR NUMBER DEFINED BY SUB 
Ig : JSR PC. a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
fA ‘ 22? RETURN HERE IF NO MORE ERRORS 
e 051174 SEKSTS: 
$4 :CLEAR USERS’ ERROR CALL 
$6 051174 000240 NOP 

051176 062716 000004 ADD #4, (SP) sMOVE (SP) TO ERROR CALL 

4 051202 105076 000000 CLRB a(SP) :CLEAR ERROR NUMBER 

5 051 6 162716 000004 SUB #4, (SP) =MOVE (SP) TO NO ERROR RETURN 
$ 051212 0905037 052432 CLR 300$ :CLEAR ERROR FLAGS 

8 ; TEST FGR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING 

9 “LOCAL REGISTERS, I.E., ‘PAR'’ = 1 AND ‘DPE 

0 051216 032737 000010 001352 BIT #PAR,RMER1I WAS "PARITY ERROR DETECTED?? 
| 051224 1424 BEQ 1$ *NO!! 

¢ 4 6 032737 000010 001400 BIT ADPE ,RMER21 to IT DUE TO CONTROL BUS?? 
$7 §1234 001020 BNE 1$ :NOT SURE!! 

5 REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL 

051236 005037 001140 CLR SGDDAT sEXPECTED STATUS 

7 051 8 013737 001352 001142 MOV RMER1I,$BDDAT :RECEIVED STATUS 

8 051 : 062716 000004 ADD #4, (SP) “MOVE STACK TO USER'S ERROR 

9 051254 112776 000050 000000 MOVB #50,a(SP) :ERROR #50 
40 051262 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
41 051 8 004736 JSR PC a(SP)+ 
6 051 162716 000010 SUB #10, (SP) :RESTORE STACK 
6? 051274 000437 RR 3$ >IAE SHOULD BE ZERO 
45 ;DETERMINE THE VALUE OF ‘“‘IAE’’ STATUS BASED ON TRACK, SECTOR AND CYLINDER 
46 >ALSO, SET ‘’SKI'’ IF CYLINDER ADDRESS IS TOO LARGE. 
47 051276 012737 002000 001140 1$: MOV #IAE ,$GDDAT :SETUP FOR IAE = 1 
48 0513804 052737 040000 052432 BIS #SK1,300$ -SETUP FOR SKI = 1 
49 051312 023727 001446 001466 CMP RMDCO,#822. -GREATER THAN LAST CYLINDER ? 
50 3 101025 BHI 3$ -YES - CYLINDER IS INVALID 
@! 51 042737 040000 052432 BIC #SK1,300$ “CLEAR SKI ERROR FLAG 
6 051330 54S 001421 001335 CMPB RMDAO+1.LSTRK+1 ;:GREATER THAN LAST TRACK ? 

re 051336 101016 BHI 3$ -YES - TRACK IS INVALID 
56 O31 340 123727 001420 000035 CMPB RMDAO, #29. -SECTOR > 29. ? 

57 051346 1017410 BLOS 2$ :-BR IF NO 


as ee ee a eee 
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68 051350 032737 010000 001444 BIT #FMT16.RMOFO  :18 BIT FORMAT ? 
59 051356 001406 BEQ 3$ >YES - SECTOR 1S INVALID FOR 18 BIT MODE 
60 051 123727 001420 000037 CMPB  =- RMDAO,, #31. =SECTOR > 31. 

41 051 191002 BHI 3s :YES - SECTOR is INVALID 
es 051370 005037 001140 2s: CLR SGDDAT :"*IAE"" SHOULD = 0 

65 -COMPARE EXPECTED AND RECIEVED ‘‘IAE’’ STATUS 

66 051374 013737 001352 001142 3$: MOV RMERII.$BDDAT :iS I ?? 

67 051402 042737 175777 001142 BIC #*CIAE,$BDDAT  ;SAVE IAE BiT FOR COMPARE 
68 051410 023737 001140 001142 CMP $GDPAT.$BDDAT :CORRECT “‘IAE’’ STATUS ? 

69 051416 001004 BNE 35$ -BR IF NO 

70) 051420 042737 040000 052432 BIC #SK1,3C0$ =CLEAR SKI FLAG 

71 051426 000413 5 GO CHECK NEXT ERROR 

as 0514 35$: 

7 >REPORT INCORRECT “TAE™ STATUS VIA USER'S ERROR CALL 

7 051430 062716 000004 ADD #4, (SP) 

75 0514 112776 000051 000000 MOVB «#51, a( SP) :ERROR 51 

76 051442 162716 000002 SUB #2, (SP) =MOVE SP TO RETURN FOR ERROR 
77 051446 004736 JSR PC a(SP)+ > REPORT INCORRECT 1AE 

78 051450 162716 000010 SUB #10, (SP) RESTORE (SP) 

79 051454 00024 NOP 

0 051456 S$: 

8¢ :REPORT ANY IVC ERROR AS 

85 : IVC ERROR WITH VOLUME VALID ZERO 

: ERRONEOUS IVC ERROR, VOLUME VALID IS SET 

85 051456 032737 010000 001400 BIT #IVC,RMERZI! : IVC /ERROR?? 

B86 051464 001427 BEQ 52$ =NO! 

87 051446 005037 001140 CLR SGDDAT SOXPECTED STATUS 

88 051472 013737 001400 001142 MOV RMERZI.$BDDAT  =RECEIVED STAT 

89 21200 062716 00 ADD #4, (SP) =MOVE SP TO USER" S ERROR 

1304 112776 000060 MOVB  #60,a(SP) “ERROR 60 IF VV = 0 

91 051 If 032737 000100 001350 BIT #VV,RMDS! 

a 515 001403 BEQ 5 

93 051522 112776 000061 000000 MOVB  #61,a(SP) -ERROR 61 IF V 1 

94 0913 0 162716 000002 518: SUB 2, (SP) “MOVE SP TO RETURN FOR ERROR 
95 31334 004736 f JSR PC,a(SP)+ *REPORT ERROR VIA USER 
96 051536 162716 000010 . SUB #10, (SP) “RESTORE SP 

a 051542 000240 NOP 

99 051544 013737 001400 001142 52$: MOV RMER21,$BDDAT :RECEIVED STATUS 
100 31238 042737 137777 001142 BIC #°CSKI,$BDDAT :CLEAR DONT CARES 
101 3126 013737 052432 001140 MOV 300$, $GDDAT -GET EXPECTED SKI STATUS 
1 ¢ 1566 042737 137777 001140 BIC #°CSK!,$GDDAT :CLEAR DONT CARES 
108 051574 -001417 BEQ 53$ “BRANCH IF 0 EXPECTED 
105 :REPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED) 
106 51576 032737 040000 001142 BIT #5K1,$BDDAT ;WAS SKI DETECTED ?? 

1 31604 1032 BNE 54$ YES ! 
108 0516 716 000004 ADD #4, (SP) -MOVE ép TO USERS ERROR CALL 
109 051612 112776 000267 000000 MOVB  #267,a(SP) “WRITE ERROR NUMBER 

110 051 162716 000002 SUB #2, (SP) “MOVE SP TO ERROR RETURN 
111 051624 004736 JSR PC.a(SP)+ >REPORT ERROR AND RETURN 
ie 51 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 

173 0516382 000443 BR 6$ >GO TO NEXT ERROR CHECK 
14 051634 53$: 


ee _ 
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zREPORT ERROR IF SKI IS SET 
BIT 


#SKI ,SBDDAT sIS SKI SEI 7? 
54$ 


BEO [NO - SKI IS OK 

ADD #4, (SP) “MOVE (SP) TO ERROR 

MOVB #54,a(SP) “LOAD ERROR NUMBER 

SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 

JSR PC _a(SP)+ =REPORT SEEK ERROR 

SUB #10, (SP) “RESTORE (SP) : 

NOP 

ANY DEVICE CHECK 

aT #DVC .RMER2Z1 WAS, THERE DVC DURING SEEK?? 

CLR $GDDAT ‘EXPECTED STATUS 

MOV RMER21,$BDDAT :RECEIVED STATUS 

ADD #4, (SP) 

MOVB «#55, a( SP) :ERROR #55 

SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 

JSR PC-a(SP)+ “REPORT ERROR VIA USER 

SUB #10, (SP) “RESTORE SP 

NOP 
“OPI'' ERROR AS OPI WITH MOL = 0, OR OPI 
CYLINDER LATCH DIDN'T RESET 

BIT #OPI .RMER11 :"OPI'' ERROR?? 

BEQ sNO!! 

CLR $GDDAT -EXPECTED STATUS 

MOV RMER11,$BDDAT :RECEIVED STATUS 

ADD #4, (SP) “MOVE (SP> TO ERROR 

MOVB  #52,a(SP) “LOAD ERROR NUMBER 

BIT #MOL .RMDS! “WAS MEDIUM ON LINE?? 

BEQ 7$ “NO! ! 

MOVB  #53,a(SP) “YES - CHANGE ERROR NUMBER 

SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 

JSR PC a(SP)+ “REPORT ‘‘OPI'’ ERROR 

SUB #10, (SP) “RESTORE (SP) 

NOP 

*prp*’ = 0, AND eo *™MOL'* AND ay" = 1 

MOV RMDSI,-(SP) 

BIC #*C<ATA'PIP!MOL !VV>, (SP) 

CMP HATA! MOL 'VV, (SP) + 

BNE 9$ :ERROR IN RMDS 

MP 14$ “RMDS IS OK 

ERROR IF MOL = 0 AND OPI = 0 

BIT #MOL .RMDS! :IS MOL RESET?? 

BNE *NO - MOL IS SET 

BIT #OP1,RMER11 “WAS OPI SET 

BNE “YES - DONT REPORT ERROR 

MOV RMDSI.$GDDAT §_:EXPECTED STATUS 

BIS .$GDDAT 

MOV RMDSI.$BDDAT  ;RECEIVED STATUS 

ADD #4, (SP) 

MOVB #62,a(SP) 

SUB #2, (SP) -MOVE SP TO RETURN FOR ERROR 


SEQ 0220 
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172 05 132 004736 JSR PC a(SP)+ >REPORT ERROR VIA USER 
173 0$21 162716 ©00010 SUB #10. (SP) 
oe 952140 000240 NO? 
17% :REPORT AN ERROR IF “PIP"’ IS STIL SET AND SKI NOT SET 
177 082142 032737 020000 001350 10%: BIT #PIP.RMDSI IS ‘PIP’ STILL SET?? 
178 052150 001450 BEO 11$ =NO!! 
179 05 152 032737 040000 001409 BIT #SK1RMER2I “WAS "SKI"'SET?? 
180 0521 001024 BNE 11$ =YES-DONT REPORT PIP 
181 0521 Z 013737 001350 001140 MOV RMDSI.SGDDAT = EXPECTED STATUS 
1 é 0521 0 737 020000 001142 BIC #PIP,$BDDAT 
14% 052176 013737 001350 901142 MOV -RMDSI.SBDDAT  -:RECEIVED STATUS 
1 04 716 000004 ADD #4, (SP) “MOVE (SP) TO ERROR 
185 052210 112776 000056 000000 MOVB #56.a(SP) =LOAD ERROR NUMBER 
1 52216 162716 000002 SUB #2, (SP) =MOVE SP TO RETURN FOR ERROR 
1 09 2 004736 JSR PC a(SP)+ “REPORT 'PIP'' SET AFTER SEEK 
1 62224 162716 000010 SUB #10. (SP) :RESTORE (SP) 
1% 05 000240 NOP 
191 :REPORT AN ERROR IF "‘ATA'’ IS NOT SET 
198 05 28 032737 100000 001350 11$: BIT #ATA,RMDSI >WAS SATAY SET ?? 
19 ; 4 9010 4 BNE 13$ :YE 
194 42 013737 001350 001140 MOV RMDS1,$GDDAT SEXPE TED STATUS 
195 052250 05¢7 7 11 001140 BIS #ATA'MOL 'DPR!DRY.$GDDAT 
196 52256 01 737 00350 001142 ) MOV RMDSI.$BDDAT :RECEIVED STATUS 
19 64 716 000004 ADD #4, (SP) *MOVE (SP) TO ERROR 
198 0 112776 000057 000000 MOVB  #57.a(SP) “LOAD ERROR NUMBER 
1 26 162716 2 SUB 2, (SP) =MOVE SP TO RETURN FOR ERROR 
9 052302 004736 JSR PC a(SP)+ gE alae NOT SET DURING 
Py 938306 162716 000010 SUB #10, (SP) sRESTORE (SP) 
$ 052510 000240 NOP 
6 “REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO 
006 4 312 32737, 000100 001350 13$: BIT #VV,RMDSI 1S W = 0 ?? 
eQ 5 5989 BNE 14$ We 
20 2737 010000 001400 BIT #IVC,RMER2Z 1 -1S IVC ALSO 0 ?? 
? 1984 BNE 14$ “NO - IVC IS SET 
316 7? 001350 001140 MOV RMDSI.SGDDAT § :EXPECTED STATUS 
el 0 052737 000100 001140 BIS #VV,$GDDAT 
I 6 013737 001350 001142 MOV RMDS1,$BDDAT :RECEIVED STATUS 
! 54 716 000004 ADD #4, (SP) 
14 0 1 12776 000064 000000 MOVB  -#64,.a(SP) ERROR #64 
15 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
318 72 004736 JSR PC a(SP)+ 
} 74 162716 000010 SUB #10. (SP) 
218 052400 000240 : NOP 
3h 02 14$: 
ee) :MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED 
eee 052402 ses Sh NOP | 
588 05 04 16 000004 ADD #4. (SP) “MOVE (SP) TO ERROR CALL 
oe& 0524610 7 $4 000060 TSTB a(SP) :WAS ERROR CALLED?? 
525 052614 00140 BEQ 15$ =NO!! 3 
eb 082616 716 000004 ADD a4, (SD -MOVE TO ERROR RETURN 
>> O69@22 0004602 BR 16$ 


4 
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$60 pasegs 162776 000004 15$: 
$3 0524 000207 16$: 
232 052432 900000 3008: 


4-APR-81 01:15:59 PAGE 


SUB a4, (SP) 
RTS PC 


.WORD Q 


P 25-4 


sMOVE (SP) TO NO ERROR RETURN 
;RE TURN 


;ERROR FLAGS 


©Z7RMOBO RMOS/3/2 FCTNL TST 3 
“ONTROLLER CLEAR SUBROUTINE 


LS. eesssssessss>-henetonenn 


— ee me ee 


ee ee tee 
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18 052502 
19 052506 


20 
21 052510 


26 052550 


022626 
062766 
112776 
162766 


012637 
012637 
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000004 
000006 


000010 


000010 
000010 
000010 


. SBTTL 


CONTROLLER CLEAR SUBROUTINE 


; THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS, 


RETURN HERE IF NO ERROR FOUND 
RETURN HERE IF ANY ERROR FOUND 
SUB DEFINES ERROR NUMBFR 


“AND DRIVES, THEN SELECTS THE DRIVE. 
“CALL: JSR PC.CNTCLR 

: BR 234 

: NOP 

ERROR 

377 

CNTCLR 


* MOV RO,-(SP) 


MOV ERRVEC+2,=(SP) 
MOV #10$,ERRVEC 
MOV 6,ERRVEC+2 
MOV SE ,RO 
MOV A#CLR,RMCS2(RO) 
MOV T ‘ 
MOVB (R1) ,RMCS2(RO) 
BR 20$ 

10$: CMP (SP)+,(SP)+ 
ADD #4 ,10(SP) 
MOVB #7,@10(SP) 


SUB #2,10(SP) 


MOV (SP)+, ERRVEC+2 
MOV (SP) +, ERRVEC 
MOV (SP)+,R1 
(SP)+,RO 

PC 


208: 


+ PUSH RO ON STACK 
zPUSH R1 ON STACK 
+ PUSH ERRVE C ON STACK 
;PUSH po he ON STACK 
: SETUP FOR BUS TIMEOU 


;RO = UNIBUS ADDRESS 


CLEAR MAS 
;GET DEVICE UNDER TEST 
;SELECT DEVICE 


sADJUST STACK 

:MOVE SP TO USER'S — CALL 
;WRITE THE ERROR 

ZADJUST SP TO RETURN TO ERROR 


33POP STACK INTO ERRVEC+2 
+ 3POP STACK INTO ERRVEC 
;POP STACK INTO R1 
::POP STACK INTO RO 


SEQ 0223 
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052552 


5§ 052552 
2556 


& 
a 
gz 


4G 
45 052 
46 052674 


49 052706 
50 

51 052710 
52 052716 
53 052720 


5 
57 052734 


010146 
005046 


012637 


0C0004 
000004 
001336 
100000 
004200 
001140 
000004 
000126 
000002 
000010 


001140 
001342 


000004 
000127 
000002 
000010 
001346 
001466 


000100 
001140 
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001142 


“USED FOLLOWING A CONTROLLER CLEAR OPERATION, I.€., 


; CALL: 
;(1) 


.SBTTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 
THIS SUBROUTINE Vee asf THAT THE SUBSYSTEM IS INITIALIZED BASED ON 


T BUFFER, THIS SUBROUTINE SHOULD ONLY BE 


TING A 1 IN BIT 


WRIT] 
>5 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION. 


:STATUS PERTINENT TO THE DEVICE IS NOT CHECKED. 


IN PARTICULAR, THE 


: FOLLOWING STATUS BITS ARE NOT CHECKED: 
ATA,ERR,PIP,MOL ,WRL,LBT,PGM,VV,0M,UNS, SKI ,DVC 


CLRSTS: 
:CLEAR USER'S ERROR CALL 
ADD #4, (SP) 


;REPORT 
4$: 


;REPORT 
5$: 


REPORT 
7$: 


CLRB 


SUB 4, (SP) :M0 
ERROR IF "RCS NOT INITIALIZED 
MOV RMCS11 _— :VER 


PC,CLRSTS 
77? 


PC,a(SP)+ 


(SP) 


#SC, 


#4, (SP) 
mids, a(sP) 


» (SP) 
Pc “a(SP)+ 
#10, (SP) 


SBDDAT 
#DVA'RDY, —— 
SGDDAT , SBDDAT 


RETURN HERE IF NO ERROR 


Y SUB 
SUB FOR MORE ERROR CHECKS 
if NO MORE ERRORS 


ER 
GO BACK T 
RETURN HERE 


sMOVE SP TO ERROR 
:CLEAR ERROR NUMBER 
VE SP BACK TO NO ERROR 


IFY RMCS1 
; IGNORE SPECIAL CONDITION 
SEXPECT DVA & RDY 
DS ating EXPECTED, RECEIVED 
H IF EQUAL 


“MOVE SP TO USER'S aye CALL 


:MOVE SP BACK TO NO ERROR 


NOP 
ERROR IF RMBA NOT RESET 


SGDDAT : VERIFY RMBA IS ZERO 
RMBAI , SBDDAT 
7s :BRANCH IF ZERO 

“MOVE SP TO USER'S ERROR CALL 
aD a(sP) “WITE ERROR NUMBER IN CALL 
g “MOVE SP TO RETURN FOR ERROR 
PC *sisp)e *REPORT ERROR VIA USER 
#10, (SP) “MOVE SP BACK TO NO ERROR 


NOP 
— IF RMCS2 NOT ahaa | 54 
RMCS21,$BDDAT ERIFY 


Y RMCS2 
;PUSH R1 ON STACK 


R1,-(SP) ii 

-(5P) sEXPECT IR & UNIT NUMBER 
TSTQUE ,R1 ;R1 = ADDRESS OF TEST QUE 
(R1), (SP) 

#IR, (SP) 

(SP)+,$GDDAT 


i : 
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58 052740 012601 MOV (SP)+,R1 ::POP STACK INTO R 
59 052742 023737 001140 001142 CMP $GDDAT,$BDDAT COMPARE EXPECTED é RECEIVED 
60 052750 001413 BEQ 98 “BRANCH IF EQU 
61 052752 062716 000004 ADD “MOVE SP TO USER'S ERROR CALL 
62 052756 112776 000130 000900 MOVB #180" BSP) “WITE ERROR NUMBER IN CALL 
63 052764 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
64 052770 004736 JSR PC a(SP)+ “REPORT ERROR VIA USER 
65 052772 162716 000010 SUB #10, (SP) “MOVE SP BACK TO NO ERROR 
66 052776 000240 NOP 
67 -REPORT ERROR IF RMER1 NOT RESET~1GNORE UNS 
68 053000 005037 001140 oS: CLR SGDDAT VERIFY PRMER1 
69 053004 013737 001352 001142 MOV RMER11, $BDDAT 
70 053012 042737 940000 001142 BIC #UNS , $BDDAT : IGNORE UNSAFE 
71 053020 001413 BEQ 13$ “BRANCH IF ZERO 
72 053022 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
) 73 053026 112776 000131 000000 MOVB  #131,a(SP) “WITE ERROR NUMBER IN CALL 
| 74 053034 162716 000902 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
| 75 053040 004736 JSR PC arsP)+ “REPORT ERROR VIA USER 
| 76 053042 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR 
| 77 653046 000240 NOP 
| 78 ;REPORT ERROR IF RMMR1 NOT INITIALIZEDIGNORE WC,LS.LST 
| 79 053050 013737 001362 001142 13$: MOV RMMRII.$BDDAT  ; VERIFY RMMR 
| 80 053056 042737 000046 001142 BIC #WCILSILST, - SBDDAT : IGNORE WORD CLOCK, SCT, TRK 
81 053064 012737 000010 001140 MOV #MWD. $GDDA sEXPECT WRITE DATA BIT 
82 053072 023737 001140 001142 CMP SEDDAT SBDDAT *COMPARE EXPECTED AND RECEIVED 
| 83 053100 001413 BEQ 17$ *BRANCH IF 0 
| 84 053102 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
| 85 053106 112776 000133 000000 MOVB  #133.a(SP) :WITE ERROR NUMBER IN CALL 
86 053114 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
| 87 053120 004736 JSR PC .a(SP)+ “REPORT ERROR VIA USER 
88 053122 162716 000010 SUB #10, (SP) “MOVE SP BACK TO NO ERROR 
89 053126 000240 NOP 
:REPORT AN ERROR IF RME C2 IS NOT RESET 
91 053130 005037 001140 17$: CLR SGDDAT sEXPECT ZEROS 
92 053134 013737 001404 001142 MOV RMEC21.$BDDAT :VERIFY RMEC2=0 
93 052142 001412 BEQ 19$ 
94 053144 062716 000004 ADD #4, (SP) :MOVE SP TG USER'S ERROR CALL 
95 053150 112776 000135 000000 MOVB  #135,a(SP) “WITE ERROR NUMBER IN CALL 
96 053156 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
97 053162 004736 JSR PC a(SP)+ “REPORT ERROR VIA USER 
98 053164 162716 000010 SUB #10, (SP) “MOVE SP BACK TO NO ERROR 
99 053170 000240 NOP 
100 :REPORT ERROR IF RMMR2 NOT INITIALIZED-IGNORE RQA,ROB 
101 053172 013737 001376 001142 19%: MOV RMR sSBDDAT : VERIFY RMMR2 
102 053200 042737 140000 001142 BIC 
103 053206 012737 011777 001140 MOV ati ltt? tepoal sEXPECT TEST BIT ON 
104 053214 023737 001140 001142 CMP $GDDAT , $BDDAT 
105 053222 001413 BEQ 21s 
106 053224 062716 000004 ADD (SP) :MOVE SP TO USER'S ERROR CALL 
107 053230 112776 000136 000000 MOVB +186) a(SP) “WITE ERROR NUMBER IN CALL 
108 053236 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
109 053242 004736 JSR PC. a(SP)+ “REPORT ERROR VIA USER 
110 053244 162716 000010 SUB #10, (SP) “MOVE SP BACK TO NO ERROR 
| 111 053250 000240 NOP 
| 112 : REPORT ERROR IF RMER2 NOT RESET-IGNORE SKI,DVC 
113 053252 005037 001140 21$: $GDDAT “EXPECT ALL ZEROS 
| 114 053256 013737 001400 001142 mov RMERZ1.$BDDAT = VERIFY RMER2 
| 





Ss er me tee ee we a —-- «= 


115 053264 
116 053272 
117 053274 
118 053300 
119 053306 
120 053312 
121 053314 
122 053320 
123 

124 033346 
125 0533 

126 053336 
127 053344 
128 053352 
129 053354 
130 053360 
131 053366 
132 053372 
133 053374 
134 053400 
135 053402 
136 053406 
137 053412 
138 053414 
139 053420 
140 053422 
141 053426 
142 053430 
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0402090 
000004 
000174 
000002 
600010 
001350 
177177 
000600 
001140 


000004 
0001 34 
000002 
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001142 


>REPORT 
2158: 


2e$: 


23%: 
243: 


BIC #SKI!DVC,$BDDAT ; IGNORE DEVICE he 


BEQ 215$ :BRANCH IF OTHER BITS 0 

ADD #4, (SP) MOVE SP TO USER'S ERROR CALL 
MOVB #174,a(SP) ;WITE ERROR NUMBER IN CALL 
SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
JSR PC ,a(SP)+ ;REPORT ERKOR VIA USE 


R 
SUB #10, (SP) “MOVE SP BACK TO NO ERROR 


NOP 
ERROR IF RMDS NOT INITIALIZED 

RMDSI,$BDDAT “TEST DRIVE STATUS REGISTER 
BIC #*C<DRY 'DPR>, SBDDAT 
MOV #DPR!DRY, SGDDAT sEXPECTED DRIVE STATUS 
CMP a ,SBDDAT : COMPARE EXE ECTED & RECEIVED 


BEQ 2¢ E 

ADD :MOVE SP TO USER'S ERROR CALL 
MOVB a1 84> 3(SP) ‘WRITE ERROR NUMBER 

SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ “REPORT ERROR TO USER 


;MOVE SP BACK TO NO ERROR 


;MOVE SP TO ERROR CALL 
;WAS AN ERROE DETECTED?? 


“YES = MOVE TO ERROR RETURN 
:MOVE SP TO NO ERROR RETURN 


SUB #10, (SP) 


NOP 
ADD #4, (SP) 
TSTB a(SP) 


ADD #4,(SP) 
BR 24$ 
SUB #4,(SP) 
RTS PC 


SEQ 0226 


G 
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} _SBTTL PACK ACKNOWLEDGE STATUS CHECK 
3 -THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 
4 “COMMAND USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARE 
5 “REPORTED TO THE USER VIA THE USER'S ERROR CALL. 
7 : CALL: 
8 (1) JSR PC ACKSTS 
9 : BR 299 RETURN HERE IF NO ERROR 
10 : NOP RETURN HERE TO REPORT AN ERROR 
11 ; ERROR ERROR NUMBER DEFINED BY SUB 
1g : JSR PC a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
13 : 299 RETURN HERE IF NO MORE ERRORS 
15 053432 ACKSTS: 
17 :CLEAR USER'S ERROR CALL 
18 053432 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 
19 053436 105076 000000 CLRB  ~—s a SP) “CLEAR LOW ORDER BYTE 
20 653442 162716 000004 SUB #4, (SP) “MOVE SP BACK 
22 :REPORT AN ERROR IF ‘VV'' IS 0 
3% 053446 032737 000100 001350 BIT #VV .RMDSI :1S VOLUME VALID SET?? 
24 053454 001024 BNE 1$ “YES! ! 
95 053456 013737 001350 001140 MOV RMDSI.$GDDAT  ; EXPECTED STATUS 
26 0 052737 100 001140 BIS #VV,.$GDDAT 
57 053472 013737 001350 007142 MOV RMDSI,$BDDAT  ;RECEIVED STATUS 
28 053500 062716 000004 ADD #4, (SP) “MOVE SP TO ERROR CALL 
29 053504 112776 000155 000000 MOVB  #155.a(SP) “WRITE NUMBER IN ERROR CALL 
30 053512 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
31 053516 004736 JSR PC a(SP)+ “REPORT THE ERROR 
32 053520 162716 000010 SUB #10, (SP) “MOVE SP BACK TO BRANCH 
33 053524 000240 NOP 
34 053526 1$: 
36 ; :REPORT AN ERROR IF ‘MOL’ IS 0 
37 053526 032737 010000 001350 BIT #MOL .RMDSI :IS MOL SET?? 
38 053534 001024 BNE 2 “YES! ! 
39 053536 013737 001350 001140 MOV RMDSI,$GDDAT  ; EXPECTED STATUS 
40 053544 052737 010000 001140 BIS #MOL .$GDDAT 
41 053552 013737 001350 001142 MOV RMDSI,$8DDAT  ;RECEIVED STATUS 
42 053560 062716 000004 ADD #4, (SP) “MOVE SP TO ERROR CALL 
43 053564 112776 900041 000000 MOVB #41.,a(SP) “WRITE NUMBER OF ERROR IN CALL 
44 053572 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
«5 053576 004736 JSR PC a(SP)+ “REPORT TH ERROR 
53600 162716 000010 SUB #10, (SP) “MOVE SP TO BRANCH 
47 053604 000240 NOP 
PY 05 3606 2$: 
50 -SEE IF “UNS'',"‘OPI'',"RMR'',"ILR’’, OR “ILF'' IS SET 
51 053606 032737 060007 001352 BIT WUNS 'OP] !RMR' ILRI ILE ,RMERT! 
5 053614 001570 REQ 7$ 
b4 :REPORT AN ERROR IF ‘UNS’ IS SET 
55 053616 032737 040000 001352 - BIT #UNS , RMER1 I :WAS UNS SET?? 
56 053626 001424 BEQ 3$ “NO! ! 
5? 053626 013737 001352 001142 MOV RMER11,$BDDAT  ;:RECEIVED STATUS 
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RUN =SSSVEARGVLSS 
OOo 


053756 


053756 


013737 


032737 
001424 
013737 
013737 


A A 


CHE CK 
001352 


000002 


001352 
001352 


000045 
000002 
C00010 


000001 


001352 
001352 
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001140 
001140 


000000 


001352 
001142 


000000 


001352 
001142 
001140 
001140 


000000 


001352 
007142 
007140 
001140 


000000 


001352 


001142 
001140 


3s: 
sREPORT 


4$: 
:REPORT 


5$: 
;REPORT 


6$: 
: REPORT 


RMERII, SGDDAT 
#UNS , $GDDAT 

#4. (§P) 
#42,a(SP) 

#2, (SP) 

PC a(SP)+ 
#10, (SP) 


ERROR 
MOPI ,RMER11 
4$ 


RMER11,$BDDAT 
RMER11 , $GDDAT 
#OPI ,$GDDAT 


PC, -a(SP)+ 
#10, (SP) 


ERROR 
#ARMR ,RMER1 1 
5$ 


RMER11 , $BDDAT 
RMER11,$GDDAT 
ARMR , SGDDAT 


PC. a(SP)+ 
#10, (SP) 


ILR ERROR 
AILR,RMER1I 
6$ 


RMER11,$BDDAT 
RMER11, $GDDAT 
#ILR,$GDDAT 
44, (SP) 

#45 ,a(SP) 

#2, (SP) 

PC ,a(SP)+ 
#10, (SP) 


ILF ERROR 
MILF ,RMERTI 
7$ 


RMER11,$BDDAT 
RMER11,$GDDAT 


sEXPECTED STATUS 


sMOVE SP TO ERROR CALL 

;WRITE NUMBER OF ERROR IN ( 
:MOVE SP TO RETURN FOR ERR oR 
;REPORT THE ERROR VIA USER 


:MOVE SP TO NO ERROR RETURN 


3WAS OP] SET ?? 
“NO! ! 


“RECEIVED STATUS 
“EXPECTED STATUS 


sMOVE SP TO ERROR CALL 

:WRITE NUMBER OF ERROR IN CALL 
:MOVE SP TO RETURN FOR ERROR 
;REPORT THE ERROR VIA USER 


:MOVE SP TO NO ERROR RETURN 


;WAS RMR SET?? 
-NO! ' 


“RECEIVED STATUS 
“EXPECTED STATUS 


MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 
“MOVE SP TO RETURN FOR ERROR 
7REPORT THE ERROR VIA USER 


:MOVE SP TO NO ERROR RETURN 


sWAS ILR SET?? 
“NO! ! 


“RECEIVED STATUS 
“EXPECTED STATUS 


:MOVE SP TO ERROR CALL 

;WRITE NUMBER OF ERROR IN CALL 
:MOVE SP TO RETURN FOR ERROR 
;REPORT THE ERROR VIA USER 
:MOVE SP TO NO ERROR RETURN 


:WAS ILF SET?? 
“NO! ! 


“RECEIVED STATUS 
“EXPECTED STATUS 


EQ 0226 


o~—_—-- oo 


11§ 054142 
"16 954150 


1$§ 054176 


1 
125 054176 


054e¢¢ 
132 082554 


ST 


TRMOBO RMOS/3/2 FCINL TST 3 
PACK ACKNOWLEDGE STATUS 
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001140 
000000 


7$: 
; AUGMENT RETURN 
AD 


8$: 
9$: 


BIC 


#ILF ,SGDDAT 

#4. (SP) MOVE SP TO ERROR CALL 
#66,a(SP) WRITE NUMBER OF ERROR IN CALL 
#2, (SP) “MOVE SP TO RETURN FOR ERROR 
PC a(SP)+ “REPORT THE ERROR VIA USER 
#10, (SP) *MOVE SP TO NO ERROR RETURN 


ADDRESS IF ERROR WAS FOUND 
#4, (SP) sMOVE SP TO a ol CALL 


i WOT ERROR F 

lial :YES = MOVE TO ERROR RETURN 
#4, (SP) sMOVE SP TO NO ERROR RETURN 
PC 
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RECALIBRATE STATUS CHECK SUBROUTINE SEQ 02 
} _SBITL RECALIBRATE STATUS CHECK SUBROUTINE 
3 = THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION 
é “USING THE STATUS STORED IN THE GET BUFFER 
§ ; CALL: 
g 7(1) JSR PC,RCLSTS :CALL SUBROUTINE 
9 : BR 229 RETURN HERE IF NO ERROR 
10 : NOP RETURN HERE TO REPORT AN ERROR 
11 ° ERROR ERROR NUMBER DEFINED BY SUB 
1¢ : JSR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
13 : 227 RETURN HERE IF NO MORE ERRORS 
15 054226 RCLSTS: 
17 -CLEAR USER'S ERROR NUMBER 
18 054226 062716 000004 ADD #4, (SP) 
19 0542%2 105076 000000 CLRB a(SP) =CLEAR USER'S ERROR CALL 
20 654236 162716 000004 SUB #4, (SP) “MOVE SP BACK TO BRANCH 
22 
oan :SEE IF ‘PAR OR “ILF’’ OR ‘OPI’ OR ‘‘IAE’' IS SET 
24 054242 032737 022011 001352 BIT HOPI 'PAR'ILF ! IAE,RMER1I 
¢5 054250 001553 BEQ 4$ ‘NONE ARE SET - GO TO NEXT CHECK 
2? ;REPORT ANY MASSBUS CONTROL BUS PARITY ERROR, I.E.. 
28 PAR’ = 1 AND 'DPE’’ = 0 
29 054252 032737 000010 001352 BIT #PAR,RMERTI ;WAS "PAR SET?? 
30 054260 001430 BEQ 1$ *NO!! 
31 054262 032737 000010 001400 BIT #DPE ,RMER21 WAS ‘DPE’ S 
32 054270 001024 BNE 1$ “YES - NOT g REGISTER ERROR 
33 054272 013737 001352 001140 MOV RMER11.$GDDAT “EXPECTED STATUS 
34 054300 042737 000010 001140 RIC #PAR,SGDDAT 
35 054306 013737 001352 001142 MOV RMERII.$BDDAT  :RECEIVED STATUS 
3% 054314 062716 000004 ADD it, (SP) ;MOVE SP’ TO USER'S ERROR CALL 
37 054320 112776 000050 000000 MOVB #50,a(S :WRITE ERROR NUMBER IN CALL 
38 054326 162716 000002 SUB #2, (Spy “MOVE SP TO RETURN FOR ERROR 
39 054332 004736 JSR PCa (SP)+ *GO REPORT ERROR 
40 054334 162716 000010 SUB #10, (SP) *MOVE SP BACK TO BRANCH 
41 054340 000240 NOP 
*§ 054342 1$: 
dds :REPORT ANY “‘ILF’' ERROR 
45 054342 032737 000001 001352 BIT #ILF .RMERTI :WAS “‘ILF'’ SET?? 
46 054350 001424 BEQ 2$ *NO!! 
47 054352 013737 001352 001140 MOV RMER1I.$GDDAT :EXPECTED STATUS 
48 054360 042737 000001 001140 BIC #ELF .SGDDAT 
469 0543866 013737 001352 001142 MOV RMERII.$BDDAT  ;RECEIVED STATUS 
50 054374 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
51 054400 112776 000071 000C90 MOVB #71,a(SP) “WRITE ERROR NUMBER IN CALL 
52 054406 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
$3 054412 004736 JSR PC’ a(SP)+ “REPORT ERROR VIA USER 
64 054414 162716 000010 SUB #10, (SP) “MOVE SP BACK TG BRANCH 
054420 000240 NOP 


55 
56 054422 2$: 
$7 
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99 


054422 
054430 


054520 


054520 


054610 


One ae 


032737 
001517 


032737 
3 


020000 
001352 
020000 
001352 
000004 


000072 
010000 


000073 
000002 


000010 


002000 
001352 
002000 
oe lace 


050200 
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000000 
001350 
000000 


001352 
001140 
001140 
001142 


000000 


001400 


= REPORT 


3$: 


31$: 


;REPORT 


5$: 


6$: 


‘ 0 
‘ , BECAUSE ON CYLINDER LATCH a A RESET 
BIT #OP] ,RMER11 t~ Pal I SET 


ANY “‘OPI** ERROR AS 
OPI DUE 


“EXPECTED STATUS 
sRECEIVED STATUS 
:MOVE SP 


MOV RMER11, — 
BIC #OP1,$GDDAT 
MOV RMER I . S$BDDAT 


ADD #4. (SP TO USER'S ERROR CAL 

MOVB  #72.a(SP) ; WRITE ERROR NUMBER IN USER'S CALL 
BIT #MOL ,RMDS! “WAS ‘MOL’ = 0?? 

BEQ 3$ ;YES!! 

MOVB  #73,a(SP) NO = CHANGE ERROR NUMBER 

SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 


JSR PC,a(SP)+ 


“REPORT ERROR VIA USER 
SUB #10, (SP) 


sMOVE SP BACK TO BRANCH 


AN ERROR IF ‘‘IAE’' IS SET 
B WTAE .RMER' I :1S ‘TAE" SET?? 
MOV RMER11,$GDDAT  ;:EXPECTED STATUS 
BIC #IAE , $GDDAT 


MOV RMERII,$BDDAT  ;RECEIVED STATUS 


ADD #4, (SP) “MOVE SP TO ERROR CALL 
MOVB  #70,a(SP) “WRITE ERROR NUMBER IN USER'S CALL 
SUB » (SP) “MOVE SP TO RETURN FOR ERROR 


JSR PC ,a(SP)+ ;REPORT ERROR 
;MOVE SP BACK TO NO ERROR RETURN 


"SKI'' OR “IVC*’ OR *DVC** IS SET 

BIT #SKI!IVC!DVC .RMER2I 
BEQ 8$ ;NONE OF THE BITS ARE SET 
ANY “‘IVC’’ ERROR AS 


-I1VC WITH VV = 0 
-ERRONEOUS IVC ERROR 


BIT #IVC .RMERZI sWAS IVC seT?? 


BEQ 6$ sNO!! 

MOV RMER2Z1. SGDDAT “EXPECTED STATUS 

BIC #IVC, $GDDAT 

MOV RMERDI.$BDDAT  ;:RECEIVED STATUS 

ADD * (SP) “MOVE SP TO USER'S ERROR CALL 
MOVB  #74,a(SP) “WRITE ERROR NUMBER IN CALL 
BIT #VV_RMDS] “WAS VV = 0?? 

BEQ 5$ YES! ! 

MOVB  #75,a(SP) “NO = CHANGE ERROR NUMBER 
SUB #2,(SP) “MOVE SP TO RETURN FOR ERROR 


;REPORT ERROR VIA USER 
:MOVE SP BACK TO BRANCH 


JSR PC a(SP)+ 
SUB #i0, (SP) 


SEQ 0231 


WNWANPPONMN NPN 
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MO OONAW 
oO 


Nm 
WG 
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~ 
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™m 


054756 


054774 
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ooo 
WW 
Wviw 
— she 


032737 


013746 
042716 
022726 
001002 


1002 
000137 


032737 
001030 
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000010 


001350 
047676 
110100 


055500 


010000 


010000 
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001400 
001140 
001140 
001142 


000000 


001400 


001140 
001140 
001142 


000000 


001350 
001352 
001140 
001140 
001142 


000000 


001350 
001400 


;REPORT 


7$: 
sREPORT 


8$: 


sSEE IF 


85$: 
zREPORT AN ERROR IF MOL = O AND 


AY 
B 


V 
BIC 
CMP 
BNE 
JMP 


’ PAGE 8-2 


R2] ;WAS SKI SET?? 
Rm, BGDDAT EXPECTED STATUS 
ASK, aDDAT 
PMER?. ,SBDDAT  ;RECEIVED STATUS 
a’ (p “MOVE SP TO USER'S ERROR CALi. 
#76, a(SP) “WRITE ERROR R 
#2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
PC a(SP)+ “REPORT ERROR VIA USER 
#10, (SP) “MOVE SP 10 BRANCH 
‘DVC'' ERROR 
#DVC .RMERZI sWAS ‘'DVC'' SET2? 
RMER21,$GDDAT EXPECTED STATUS 
#DVC.$GDDAT 
RMER2I,$BDDAT  ;RECEIVED STATUS 
#4, (SP) “MOVE SP TO USER'S ERROR CALL 
#77 ,a(SP) “WRITE ERROR NUMBER 
#2, (SP) “MOVE SP TO RETURN FOR ERROR 
PC a(SP)+ “REPORT ERROR VIA USER 
#10, (SP) “MOVE SP TO USER'S BRANCH 


*Pprp*’ AND ‘on’ ARE 0, AND ""ATA’’ *™MOL’’ AND ‘vy’ ARE 1 
MO RMD 


1,-(SP) :PUT RMDS ON STACK 
#°C<PIP!MOL!VV!OM!ATA>, (SP) 
#ATA!MOL !VV, (SP) 


13$ 


OPI = 0, I.E., MEDIUM WENT OFF 


LINE af o. RECALIBRATE WAS INITIATED 


I #MOL .RMDSI :DID MOL DROP?? 

BNE OF sNO!! 

BIT #OP1,RMER11 *WAS OPI ERROR REPORTED?? 

BNE “YES = DON'T REPORT MOL=0 

MOV RMDSI.$GDDAT  §: EXPECTED STATUS 

BIS #MOL , $GDDAT 

MOV SI1,$BDDAT  ;:RECEIVED STATUS 

ADD #4.(SP) :MOVE SP’ TO USER'S ERROR CALL 

MOVB #100,a(SP) :WRITE ERROR NUMBER 

SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 

JSR PC a(SP)+ “REPORT ERROR VIA USER 

SUB #10, (SP) “MOVE SP BACK TO USER'S BRANCH 
9$: 
:REPORT AN ERROR IF ‘‘VV'' = 0 AND ‘IVC’ = 0 

BIT #VV.RMDSI :DID ‘‘Vv'' DROP?? 

BNE 10$ “NO! ! 

BIT #IVC,RMERZI “WAS THERE A IVC ERROR?? 


mm ae -- _— --- -—~- - _-- -_—- —_— 
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172 055176 
200 


173 055 
174 0552 
| 175 055214 
176 9055222 
| 177 paseo 
178 055 
179 055240 
180 055242 
181 055246 
182 055250 
183 
} 184 
185 055250 
186 055256 
187 055260 
188 055266 
189 O2a6h8 
190 055302 
191 055306 
192 055314 
193 055320 
194 055322 
19 055326 
196 
197 055330 
198 
199 
200 
201 Oo eee 
202 055336 
205 055340 
204 EES 
205 055354 
06 055362 
07 055366 
208 055374 
209 055400 
10 055402 
11 055406 
12 055410 
213 
14 
15 
16 055410 
17 055416 
18 055420 
19 0554 
0 0554 
1 0554 
¢ 055444 
055452 
22% 055456 
5 055464 
226 055470 
§ ? 955472 
8 055476 


0601350 
001 350 
000100 


000004 
000101 
000002 
000010 


100000 
001350 
100000 
601350 
000004 
000102 
000002 


000010 


000001 
001350 
000001 
001350 
000004 


000103 
000002 


000010 


020000 
040000 
001350 
020000 
001350 
000004 
000104 
000002 


000010 
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001350 


001142 
000000 


001350 
C01400 





BNE 10$ “YES = DONT REPORT vv=0 
MOV RMDSI.$GDDAT _: EXPECTED STATUS 
MOV RMDSI-$BDDAT :RECEIVED STATUS 
BIS #VV,$GDDAT 
ADD (SP) :MOVE SP TO USER'S ERROR CALL 
MOVB  #101.a(SP) “WRITE ERROR NUMBER IN CAL 
SUB §P) “MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ 
SUB #10, (SP) :MOVE SP BACK TO USER'S BRANCH 
iO$: 
-REPORT AN ERROR IF ATA 1S NOT SET 
BIT #ATA,RMDS! :WAS-ATA SET DURING RECALIBRATE ?? 
BNE 11$— “YES! ! 
MOV RMDSI.$GDDAT : EXPECTED STATUS 
BIS #ATA, $GDDAT 
MOV RMDSI.$BDDAT  ;RECEIVED STATUS 
ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
MOVB  #102,a(SP) “WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #10, (SP) :MOVE SP TO USER'S BRANCH 
NOP 
118: 
:REPORT AN ERROR IF ‘'OM'' IS NOT ZERO BECAUSE RECALIBRATE SHOULD 
“ALWAYS CLEAR OFFSET MODE 
BIT #OM,RMDS I WAS ‘‘OM'' RESET?? 
BEQ 12$ YES! ! 
MOV RMDSI.$GDDAT ; EXPECTED STATUS 
BIC #0M, $GDDAT 
MOV RMDS $BDDAT  ;RECEIVED STATUS 
ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
MOVB mi03., @(SP) “WRITE ERROR NUMBER 
SUB (SP) “MOVE SP TO RETURN FOR ERROR 
JSR Pc -a(SP)+ “REPORT ERROR VIA USER 
SUB #10, (SP) “MOVE SP TO USER'S BRANCH 
NOP 
123: 
-REPORT AN ERROR IF ‘PIP’ IS STIL ON, I.E£., DRIVE NOT ON 
> CYLINDER 
BIT #PIP,RMDS! ;1S DRIVE OFF CYLINDER?? 
BEO 13$ *NO!! 
BIT #SK1,RMER21 WAS ‘'SKI‘' DETECTED?? 
BNE 1 -YES-DONT REPORT 'PIP*' 
MOV RMDSI.$GDDAT _: EXPECTED STATUS 
BIC #PIP, $GDDAT 
MOV RMDSI.$BDDAT  §;RECEIVED STATUS 
ADD #4.(SP) :MOVE SP TO USER'S ERROR CALL 
MOVB #104,a(SP) EE NUMBER 
SUB #2, (SP MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ 
SUB #10, (SP) -MOVE SP BACK TO USER'S BRANCH 


me lee 
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_ RECALIBRATE STATUS CHECK SUBROUTI SEQ 0234 
| 229 055500 13$: 
230 
231 :SEE IF “‘ILR’’ OR ‘RMR’ OR “UNS IS SET 
3 055500 032737 040006 001352 BIT #ILR'RMR!UNS .RMER1I 
az 055506 001514 BEQ 16$ 
5 =-REPORT AN ERROR IF “"ILR'’ IS SET 
055510 032737 000002 001352 BIT #ILR,RMER1I sWAS ILR SET DURING RECALIBRATE ?? 
055516 001424 8FQ $ sNO!! 
5 0555 013737 001352 001140 MOV RMER1I.$GDDAT  ;:EXPECTED STATUS 
$222 6 op ete 001140 RIC #ILR,SGDDAT 
40 0555 013737 001352 001142 MOV RMER1I,$B8DDAT ;RECEIVED STATUS 
41 055542 2716 ADD #4,(SP) :MOVE SP TO USER'S ERROR CALL 
mK 055546 112776 000105 000000 MOVB #105 .a(SP) sWRITE ERROR NUMBER IN CALL 
43 055554 162716 000002 SUB #2. (SP) -MOVE SP TO RETURN FOR ERROR 
44 055560 736 JSR PC, a(SP)+ 
45 055562 162716 000010 SUB #10, (SP) :MOVE SP TO USER'S BRANCH 
g 033366 24 NOP 
f! 055570 14$: 
49 :REPORT AN ERROR IF ‘‘RMR'' IS SET 
50 053370 032737 000004 001352 BIT #ARMR,RMERTI :WAS RMR SET?? 
51 055576 001424 BEQ 5$ :NO!! 
26 055 R135 7 001552 001140 MOV RMER1I,$GDDAT  ;EXPECTED STATUS 
53 055 42737 001140 BIC #RMR ,SGDDAT 
54 055614 013737 001352 001142 MOV RMER11,$BDDAT ;RECEIVED STATUS 
55 055622 062716 ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 
28 428 6 112776 000106 000000 MOVB #106,a(SP) :WRITE ERROR NUMBER IN USER'S CALL 
5 56 162716 000002 SUB #2, (SP) -MOVE SP TO RETURN FOR ERROR 
28 £2078 004736 JSR PC, a(SP)+ sREPORT ERROR VIA USER 
5 Re 642 162716 000010 SUB #10, (SP) :MOVE SP TO USER'S BRANCH 
60 055646 000240 NOP 
1 055650 15$: 
re} ;REPORT AN ERROR IF "UNS'' IS SET AND 'DVC'' IS 0 
64 £630 One er 040000 001352 BIT #UNS ,RMER11 z:WAS UNSAFE ON?? 
65 8 B04 30 BEQ 16$ :NOi! 
66 05566 32737 000200 001400 BIT #DVC ,RMER21 sWAS THERE A DEVICE CHECK?? 
a4 5 1O¢% BNE 16 YES - DON'T REPORT UNSAFE 
8 rT 13737 001352 001140 MOV RMER11,$GDDAT  ;EXPECTED STATUS 
g e99 737 001140 BIC #UNS , SGDDAT 
9 55704 013737 001352 001142 MOV RMER1I1,$BDDAT ;RECEIVED STATUS 
? ete 062716 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
ze 0 716 112776 000107 000000 MOVB = #107,a(SP) “WRITE ERROR NUMBE 
? §724 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
74 ee 0 004736 JSR PC, a(SP)+ *REPORT ERROR VIA USER 
75 055732 162716 000010 SUB #10, (SP) >MOVE SP BACK TO USER'S BRANCH 
$6 55736 000240 NOP 
A 55740 168: 
79 > AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
80 055740 a $41, 000004 ADD #4, (SP) -MOVE SP TO USER'S ERROR CALL 
81 055744 105776 000000 TSTB a(SP) -WAS AN ERROR REPORTED?? 
8 S£750 001403 BEQ 17$ =NO!! 
83 055752 062716 000004 ADD #4, (SP) YES - AUGMENT SP RETURN 
See 055756 000402 HR 18$ 
5 055760 162716 000004 17$: SUB #4,(5P) :=NO ERROR - RETURN SP TO BRANCH 


— ——_- 


8 
CZRMOBO RM0S/3/2 FCTINL TST 3 MACRO V04.00 4-APR=-81 01:15:59 PAGE 33-5 
RECALIBRATE STATUS CHECK SUBROUTINE 


286 055764 foals 18$: NOP 
287 055766 ? RTS PC sSTATUS CECK IS COMPLETE 


es — ----se- 


-_-—— + -- 


SEQ 02355 


—_— -— + a a we ee EEL LL | ee 
- enter 


LT AE 
- _————e © eee - - 


1 


055770 


055770 
055774 
056000 


Ae Se hue 
OW ONAMEWN OOD NOUNS wry 
oO 


a38 
SoBe 
SEs 


0 
25 056056 
26 056062 


57 056236 


—— ee ee 


062716 
105076 
162716 
013737 
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001142 


001142 


-SBITL DRIVE CLEAR STATUS CHECK SUBROUTINE 


: BR 77? RETURN HERE IF NO ERROR 
: NOP RETURN HERE TO REPORT AN ERROR 
: ERROR ERROR NUMBER DEFINED BY SUB 
; JSR PC,a(SP)+* GO BACK TO SUB FOR MORE ERROR CHECKS 
; Pe? RETURN HERE IF NO MORE ERRORS 
DRVSTS: 
;CLEAR USER'S ERROR CALL 
ADD #4, (SP) sMOVE SP TO ERROR CALL 
CLRB a(SP) 7; CLEAR ER 


ROR CALL 
SUB #4, (SP) ‘MOVE SP TO USER'S BRANCH 
:REPORT ERROR IF RMCS1 NOT INITIALIZED 
i$: MOV RMCS1I.$BDDAT  ;CHECK RMCS1 
BIC #*C<DVA'FNCMSK>,$BDDAT ;CLEAR DONT CARES 
MOV #DVA!DRVCLR, $GDDAT ZEXPECT DVA 
CMP SCDDAT, ,SBDDAT  ; COMPARE EXPECTED @ RECEIVED 


#4, (SP) 
MOVB  #141,a(SP) “WRITE NUMBER 
SUB #2, (SP) : 

JSR PC a(SP)+ “REPORT THE ERROR 
SUB #10, (SP) *MOVE SP TO NO ERROR RETURN 


NOP 
-REPORT ERROR IF RMDS NOT INITIALIZED 
S$: MOV RMDS1,$BDDAT -CHECK RMDS 
BIC #PGM'OM'VV'PIP, SBDDAT :CLEAR DONT CARES 
Y, SGDDAT TEXPECT 


MOV #MOL 'DPR'DRY DRY & DPR 
CMP SGDDAT, $BDDAT ; COMPARE: EXPECTED & RECEIVED 
6$ H IF EQUAL 


BEQ 

ADD #4, (SP) “MOVE SP TO ERROR CALL 

MOVB woe. a(SP) [WRITE NUMBER OF ERROR IN CALL 
SUB VE SP TO RETURN FOR ERROR 


(SP) “MO 
JSR 3 “a(SP)+ [REPORT THE ERROR VIA USER 
SUB #10, (SP) “MOVE SP TG NO ERROR RETURN 


NOP 
;REPORT ERROR IF RMER1 NOT INITIALIZED 
6$: Re AT MPECT 


CL : O'S 

MOV RMER11,$BDDAT ;CHECK RMERI 

BEQ o :BRANCH IF EQUAL 

ADD sMOVE SP TO ERROR CALL 

MOVB wks a a(sP) s WRITE R OF ERROR IN CALL 
SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 


JSR PC. a(SP)+ “REPORT THE ERROR VIA USER 
SUB #10, (SP) “MOVE SP TO NO ERROR RETURN 


NOP 
;REPORT ERROR IF ATA NOT INITIALIZED 
8$: MOV S1,$BDDAT ;CHECK ATTENTION BIT 
MOV R1,-(SP) :;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
VB —s-1(R1) ,R2 
BIC #*CATNMSK ,R2 


Re 
BIC R2,$BDDAT 


LS CEE ee er ee ee - 


SEQ 02356 
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3 056242 


3D 
g 
oO 


61 056252 
62 056254 
63 056260 
64 0 


40 
005037 


001413 


001142 


000004 
000144 
000002 


000010 
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000000 


-REPORT 
9$: 


15$: 
;REPORT 


ZREPORT 
17$: 


18$: 
19$: 


MOV 


MOV 
BIC 


(SP)+,R2 
(SP)+_R1 
$ADDAT 
9$ 


#4, (SP) 
#144,a(SP) 
#2, (SP) 
PC. a(SP)+ 
wid, (SP) 


SP) 
mis, a(SP) 
#2, (SP) 

PC a(SP)* 
#10, ( 


#ROA! ROB, $BD 
#TST!1777, SDA 
ele eam 


(SP) 
mide a(sP> 
#2, (SP) 

PC a( SP) 
wid, ( 


CLR SGDDAT 
ERROR IF RMEC2 NOT RESET 
RMEC21 , SBDDAT 


ni80, atSP) 
#2, (SP) 


PC a(SP)* 
#i0, ( 


NOP 
ERROR IF RMER2 NOT RESET 
RMER2! , SBDDAT 


#4, (SP) 
#147,a(SP) 
#2, (SP) 
PC a(SP)+ 
#10, (SP) 


i 5BOF STACK INITIO R2 
is POP STACK INTO R1 


:1S ATTENTION CLEARED?? 
;BRANCH IF ATTENTION CLEARED 
:MOVE SP TO ERROR CALL 

WRITE NUMBER OF ayy > IN CALL 
“MOVE SP TO RETURN FOR ERROR 
;REPORT THE ERROR VIA USER 


SUB “MOVE SP TO NO ERROR RFTURN 
ERROR IF RMMR1 NOT INITIALIZED 
#wC'LS'LST, , SBDDA pat 
#MWD, $GDDAT 

ee »SBDDAT 


HE CK 
; CLEAR +4 CARES 
sEMPECT WRITE DAT 


A ON 
+ COMPARE EXPECTED AND RECEIVED 
CH IF ZERO 


: MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 
“MOVE SP_ TO RETURN FOR ERROR 
;REPORT THE ERROR VIA USER 
;MOVE SP TO NO ERROR RETURN 


NOP 

ERROR IF RMMR2 NOT INITIALIZED 
RMMR2 I eo ; CHECK 2 

- :CLEAR REQA, 


RE 
EXPECT 


TEST BIT ON 
" COMPARE’ EXPECTED & RECEIVED 
H IF EQUAL 


:MOVE SP TO ERROR CALL 
;WRITE NUMBER OF ERROR IN CALL 
; TO RETURN FOR ERROR 


;REPORT THE ERROR VIA USER 
:MOVE SP TO NO ERROR RETURN 


sEXPECT ZEROS 

: CHECK RMEC2 

:BRANCH IF 0 

sMOVE SP TOE CALL 

:WRITE R OF ERROR IN CALL 


;MOV RROR 
oe Ss THE ERROR VIA USER 


“MOVE SP TO NO ERROR RETURN 


sEQ 0257 
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115 ;AUGMENT RETURN ADDRESS IF ANY ERROR WAS FOUND 
116 056542 062716 600004 ADD #4, (SP) ;MOVF SP TO ERROR CALL 

1? 056546 105776 000000 TSTB = @(SP) [WAS AN ERROR DETECTED?? 

118 056552 001403 BEQ = 2:18 TNO! ! 

119 056554 062716 000004 ADD #4, (SP) YES = MOVE SP TO ERROR RETURN 
120 066560 000402 BR 

121 056562 162716 000004 21$: SUB #4, (SP) ;MOVE SP BACK TO NO ERROR RETURN 

122 056566 000240 2%$: NOP 

123 056570 000207 RTS —s- PC ;RETURN TO USER 


er 
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j _SBTTL DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 
3 -THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS 
4 “USING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS 
5 “STORED IN THE PUT BUFFER. ERRORS ARE REPORTED BY WRITING 
6 “THE ERROR NUMBER IN THE USERS ERROR CALL. 
8 USER" S SUBROUTINE CALL: 
9 (1) JSR 23° DTASTS 
10 :(2) BR RETURN HERE IF NO DATA ERRORS 
1 "(3) NOP RETURN HERE TO REPOR! AN ERROR 
12 (4) ERROR SUB WRITES ERROR NUMBER 
138 (5) JSR PC, a(SP)+ USER RETURNS FOR MORE CHECKS 
14 > (6) 2? SUB RETURNS HERE AFTER ALL 
1s : ERRORS ARE REPORTED 
a 056572 DTASTS: 
19 :CLEAR USER'S ERROR CALL AND ERROR FLAGS 
20 056572 062716 0C0004 ADD #4, (SP) :MOVE SP TO USER'S ERROR 
21 056576 105076 000000 CLRB = a SP) “CLEAR LOW ORDER BYTE OF TRAP 
22 056602 162716 000004 SUB #4. (SP) “RESTORE SP TO NO ERROR 
23 056606 005037 062166 CLR 500$ “CLEAR ERROR FLAGS 
2 :REPORT ANY CONTROL BUS PARITY ERROR WHILE READING REMOTE REGISTERS, 
27 056612 032737 020000 001336 BIT #MCPE ,RMCS11 :WAS THERE A PARITY ERROR?? 
28 056620 001422 BEQ 10$ *NO!! 
29 056622 013737 001336 001740 MOV RMCS1I.$GDDAT :EXPECTED STATUS 
30 056630 042737 020000 001740 BIC #MCPE , $GDDAT 
31 056636 013737 001336 001142 MOV RMCS1I,$BDDAT  ;RECEIVED STATUS 
32 056644 062716 000004 ADD #4. (SP) “MOVE SP TO USER'S ERROR CALL 
33 056650 112776 000013 000000 MOVB #13,a(SP) “WRITE ERROR NUMBER 
24 056656 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
35 056662 004736 JSR PC a(SP)+ ;REPORT ERROR AND RETURN 
3% 056664 000466 BR 30$ 
37 056666 108: 
39 =REPORT ANY CONTROL BUS PARITY ERROR WHILE WRITTING REMOTE REGISTERS, 
40 “J .t.. PAR _ 1 AND DP Ee = C 
41 056666 032737 000010 001352 BIT #PAR RMERTI ;WAS THERE A PARITY ERROR?? 
42 056674 001435 BEG t *NO!! 
43 056676 032737 000010 001400 BIT ADPE .RMERZI ‘DATA, PARITY ERROR ? 
44 056704 001031 BNE 208 
45 056706 013737 001352 001140 MOV RMER11,$GDDAT S ENPECTED STATUS 
46 056714 042737 000010 001140 BIC #PAR ,$GDDAT 
47 056722 013737 001352 001142 MOV RMERII,$BDDAT  ;:RECEIVED STATUS 
48 056730 062716 000004 ADD #4, (SP) ;MOV E SP TO USER'S ERROR 
49 056734 112776 000059 000000 MOVB  #50,a(SP) WRITE ERROR NUMBER 
50 056742 032737 001009 001346 BIT #MXF ,RMCS21 “DID MXF GET SET?? 
51 056750 001003 BNE 15$ YES! 
52 056752 112776 000274 000000 MOVB  #274,a(SP) “NO = CHANGE ERROR NUMBER 
53 056760 162716 000002 15$: SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
54 056764 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
35 056766 000425 BR 30$ 
67 *LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND INITIATION OR 


ee << — —EE = 


eae 
ne 
, 
' 


58 
s9 
60 
61 
62 956770 
63 056770 
64 055776 
65 057000 


66 057006 
67 057014 


77 
78 057052 
79 


80 
81 


82 
83 057052 
060 


% 
95 
96 
97 
98 057152 
99 
00 
01 
02 


— — —* 


057152 
103 057156 


957210 


— <_< TT a 


032737 


162716 
0001 37 


032737 


000249 


032737 
001432 


013737 
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001000 
001346 
001000 
001346 
000004 
000275 
000002 


000010 
062140 


010000 


001400 
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001346 
001140 
001° 40 
001142 
000060 


001352 


001140 
001140 
001142 
001350 
001350 


000000 


000000 


001400 


001140 
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>MECHANICAL POSITIONING 
sFIRST TEST MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION 


20$ 


30$: 


; CODE 


AND GO BiT WERE LOADED 
AMXF ,RMCS21 
40$ 
RMCS21,$GDDAT 


HMXF . SGDDAT 
RM Sel. $BDDAT 
#4, (SP) 


9275, a(SP) 
#2, (SP) 
PC ,a@(SP)+ 


;WAS ‘MISSED TRANSFER’ SET?? 
“EXPECTED STATUS 


sRECEIVED STATUS 

:MOVE SP TO USER'S ERROR CALL 
;WRITE ERROR NUMBER 

:MOVE SP TO RETURN IF ERROR 


:REPORT ERROR AND RETURN 


sheen! TO NO Fas Feed AND BYPASS FURHTER STATUS CHECKING 


e 


sMOVE SP TO NO ERROR 


MP =SKIP TO END OF SUB 
40$: 
;REPORT AN ERROR IF ‘‘OPI'’ ERROR OCCURRED DUE TO ‘MOL’’ = 0, OPI’ 
ZAND ‘MOL'' ARE SET, BUT 'VV'' IS RESET, INDICATING AN INTERMITTENT 

BIT #OPI ,RMER1] :1S "'OPI'' SET?? 

BEQ 60$ “NO! ! 

MOV RMER1I,$GDDAT  ;EXPECTED STATUS 

BIC #0P1,$GDDAT 

MOV RMERII,SBDDAT  ; RECEIVED STATUS 

BIT #MOL .RMDS! WAS MEDIUM OFF LINE?? 

BEQ 45$ -YES! 

BIT #VV RMDSI ;WAS MOL INTERMITTENT ?? 

BNE & *NO!! 
45%: ADD #4, (SP) ‘MOVE SP TO USER'S ERROR CALL 

MOVB  #276,a(SP) “WRITE ERROR NUMBER IN CALL 

SUB #2, (SP “MOVE SP TG RETURN IF ERROR 

JSR PC a(SP)+ “REPORT ERROR AND RETURN 

SUB #10, (SP) “RESTORE SP TO NO ERROR 
i BR 60$ 


REPORT *‘OPI'’ ERROR, 


WHICH IS DUE TO ‘ON CYLINDER’* NOT DROPPING OR 


;"RUN'’ TIMEOUT (20 MS) OR SEARCH TIMEOUT (50 MS) 


60$: 


;LOOK FOR “‘IVC'’ ERROR DURING COMMAND INITIATION 
BIT *o RMER2] 


"* ERROR DUE TO ° 


ADD 


BEQ 
REPORT ‘IVC 
MOV 


) 
PC a(SP)+ 
#10, (SP) 


RMER21 , SGDDAT 


; WA > THERE AN 


sMOVE SP TO USER'S ERROR CALL 
:WRITE ERROR NUMBER IN CALL 
:MOVE SP TO RETURN IF ERROR 
;REPORT ERROR AND RETURN 
;RESTORE SP TO NO ERROR 


AN "’IVC'’ ERROR?? 


a” . OR REPORT ERRONEOUS ° * ERROP 


SEMPECTED STATUS 


— _-—— --~ 
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010000 001140 #livC,$GDDAT 


Sr EEE 
— ——— = = 


— 


—_—-  —_—— sa - 


11 

116 057224 013737 601400 001142 MOV RMERE I « SBODAT  ;RECEIVED STATUS 

117 057232 062716 000004 ADD p) *MOVE SP TO USER'S ERROR 
118 057236 112776 000300 000000 MOvB #300. a(SP) :WRITE ERROR NUMBER IN CALL 
119 057244 032737 000100 001350 BIT #VV,RMDS1 :WAS VOLUME VALID?? 

120 057252 001403 BEQ 65$ *NO! ! 

121 057254 112776 000301 000000 MOVB  #301,a(SP) “CHANGE ERROR NUMBER 

122 057262 162716 000002 65$: SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
123 057266 004736 JSR PC a(SP)+ “REPORT ‘‘IVC'' ERROR AND RETURN 
124 057270 162716 000010 SUB #15, (SP) “RESTORE SP TO NU ERROR 

126 057274 70$: 

12? :SEE IF “‘ILF’' OR ‘RMR'' IS SET 

128 057274 032737 000007 001352 BIT #ILR'ILF'RMR, RMER1] 

129 057302 001510 BEQ 100$ :NO ERRORS DETECTED 

130 :REPORT AN ERROR IF Ry IS SET 

131 057 032737 000002 001352 BIT #ILR,RMER11 ;WAS “‘ILR'' DETECTED?? 

132 057312 001424 BEQ 80$ — “NO! ! 

133 057314 013737 001352 001140 MOV RMER11,$GDDAT S EXPECTED STATUS 

134 657322 042737 OC0002 001140 BIC #ILR,$GDDAT 

135 057330 013737 001352 001142 MOV RMER1I.$BDDAT  ;:RECEIVED STATUS 

136 057336 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
137 057342 112776 000302 000000 MOVB  #302,a(SP) “WRITE ERROR NUMBER IN CALL 
138 057350 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
139 057354 004736 JSR PC a(SP)+ *REPORT ERROR AND RETURN 
140 057356 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 

141 057362 000240 NOP 

142 057364 80$: 

144 :REPORT AN ERROR IF “‘ILF'' IS SET 

145 057364 032737 000001 001352 BIT #ILF,RMER1! :WAS "‘ILF'’ DETECTED?? 

146 057372 001424 BEQ 0$ *NO!! 

147 057374 013737 001352 001140 MOV RMER1I.$GDDAT  :EXPECTED STATUS 

148 057402 042737 000001 001140 BIC #ILF ,$SGDDAT 

149 057410 013737 001352 001142 MOV RMER1I.$BDDAT  :RECEIVED STATUS 

750 057416 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
151 057422 112776 000303 000000 MOVB  #303,a(SP) “WRITE ERROR NUMBER IN CALL 
152 057430 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
153 057434 004736 JSR PC a(SP)+ “REPORT ERORR AND RETURN 
154 057436 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 

155 057442 000240 NOP 

136 057444 90$: 

158 :REPORT AN ERROR IF ‘'RMR'' IS SET 

159 057444 032737 000004 001352 BIT #RMRRMER11 -WAS ‘'RMR'' DETECTED?? 

160 057452 001424 BEQ 100$ *NO!! 

161 057454 013737 001352 001140 MOV RMER11,$GDDAT :EXPECTED STATUS 

162 057462 042737 000004 001140 BIC #RMR , $GDDAT 

163 057470 013737 001352 001142 MOV RMERT I $BDDAT  ;:RECEIVED STATUS 

164 057476 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
165 057502 112776 000304 000000 MOVB  #304,a(SP) “WRITE ERROR NUMBER IN CALL 
166 057510 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
167 057514 736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
168 057516 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 

169 057522 000240 NOP 

170 057524 

171 DETERMINE WHETHER OR NOT ‘‘IAE'’ SHOULD BE SE’ AND CHECK FOR ERROR 


——— 
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172 057524 012737 002000 001140 MOV #IAE ,$GDDAT :SETUP FOR ‘‘JAE'’ = 1 
173 057532 052737 (40000 062166 BIS #Sk1.500$ “SETUP FOR ‘‘SKI'' = 1 

174 057540 023727 001446 001466 CMP RMDCO,#822. s;GREATER THAN LAST CYLINDER ? 
175 057546 101025 BH] 110$ “YES = CYLINDER IS INVALID 
176 057550 042737 040000 062166 BIC #SK1,500$ “RESET SKI FLAG 

178 057556 123737 0071421 0601335 CMPB —- RMDAO+1,LSTRK*1 ;GREATER THAN LAST TRACK ? 
179 057564 101016 BH] 110$ “YES = TRACK IS INVALID 

181 057566 123727 001420 000035 CMPR —s- RMDAO, #29. ;1S SECTOR > 29. ? 

1B2 057574 101410 BLOS 105% 

183 057576 032737 010000 001444 BIT #FMT16,RMOFO :18 BIT FORMAT 

184 057604 0061406 BEQ 110$ “YES = SECTOR 1g INVALID FOR 18 BIT MODE 
185 057606 123727 001420 000037 CMPB —s- RMDAO,, #31. 71S SECTOR > 31. 

186 057614 101002 BH] 110$ _ YES = SECTOR 1S iva, 18 

187 057616 005037 001140 105$: CLR $GDDAT *""TAE’’ SHOULD = 0 

189 057622 013737 001352 001142 110%: MOV RMER11,$BDDAT  :GET RECEIVED STATUS 

190 057630 042737 175777 001142 BIC #*CIAE, $BDDAT 

191 657636 023737 001140 001142 CMP $GDDAT.$BDDAT ;:JS ‘‘IAE’’ STATUS OK?? 

192 057644 001004 BNE 115$ “NO! ! 

193 057646 042737 040000 062166 BIC #SkK1,500$ “JAE OK - SKI SHOULD BE 0 
194 057654 000412 BR 120$ 

195 057656 062716 000004 115$: ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
196 057662 112776 000305 000000 MOVB  #305.a(SP) “WRITE ERROR NUMBER 

197 057670 162716 000002 SUB #2, (SP) =MOVE SP TO RETURN IF ERROR 
198 057674 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 

199 057676 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 

200 057702 1208: 

202 -REPORT AN ERROR IF ‘'SKI’’ IS SET AND “IAE’’ STATUS WAS Ok 

203 057702 013737 001400 001142 MOV RMER2I,$BDDAT  ;:RECEIVED STATUS 

504 057710 042737 137777 001142 BIC #*CSK1,$BDDAT 

205 057716 013737 062166 001140 MOV 500$, $GDDAT :EXPECTED STATUS 

206 057724 042737 137777 001140 BIC #°CSK1,$GDDAT 

207 057732 032737 040000 001400 BIT #SK1.RMER21 :WAS ‘“‘SKI'' SET?? 

208 057740 001417 BEQ 140$ :NO!! 

209 057742 032737 040000 062166 BIT #5K1.500$ “WAS SKI CAUSED BY IAE = 0?? 
210 057750 001032 BNE 1508 >YES - DON'T REPORT SKI 

211 057752 062716 000004 ADD #4, (SP) “MOVE SP TO USERS ERROR CALL 
212 057756 112776 000306 000000 MOVB #306, a(SP) “WRITE ERROR NUMBER 

213 057764 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
214 057770 004736 JSR PC atsP)+ “REPORT ERROR AND RETURN 

215 057772 162716 000010 i SUB #10. (SP) :MOVE SP TO NO ERROR 

216 057776 000417 BR 15 

$18 060000 140$: 

220 :REPORT AN ERROR IF SKI = 0 AND IAE WAS NOT DETECTED 

221 060000 032737 040000 062166 BIT #Sk1,500$ ;SHOULD SKI BE SET?? 

222 060006 001413 BEQ 1508 “NO! ! 

223 060010 062716 000004 ADD MOVE SP TO USER'S ERROR CALL 
224 060014 112776 000307 000000 MOVB +307. a (SP) “WRITE ERROR NUMBER IN CALL 
225 060022 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
226 060026 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 

227 060030 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 


J 3 
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— DAT& TRANSFER COMMAND STATUS CHECK SUBROUTIN 


me ee eee ee ee ee =e eee 


Se ee ee oe 


229 060034 150$: 
231 :LOOK FOR "LSC"* OR “LBC'' OR ‘DVC'' IN ERROR REGISTER #2 
232 060036 032737 006200 001400 BIT #LSC'LBC'DVC,RMER21 
233 001512 BEO 180$ :NO ERRORS SET 
535 :REPORT ANY DEVICE FAULT 1.€., ‘DVC'' = 1 
236 060046 032737 000200 001400 BIT #DVC NMR? I ;1S "DvC' = 12? 
237 060054 001424 BEQ 160$° “NO! ! 
538 060056 013737 001400 001140 MOV RMER2I $GDDAT ‘EXPECTED STATUS 
042737 000200 0017140 BIC DVC, $GDDAT 
540 060072 013737 001400 001142 MOV RMERST. SBDDAT RECEIVED STATUS 
241 060100 062716 000004 ADD #4, (SP) “MOVE SP TO USERS ERROR 
0601 112776 000310 000000 MOVB #310, a(SP) “WRITE ERROR NUMBER IN CALL 
243 060112 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
244 060116 736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
245 060120 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 
246 060124 24 NOP 
247 060126 160$: 
249 :REPORT LOSS OF BIT CLOCK .: LBC'' = 1, IF ‘MOL’ = 1 
250 060126 032737 002000 001400 BIT #LBC, RRERSI 21S LBC SET?? 
251 060134 001430 BEQ 170$ “NO! ! 
252 060136 032737 010000 001350 BIT #MOL .RMDS! “WAS LBC ERROR BY MOL = 0 
253 060144 001424 BEQ 17 YES! ! 
54 060146 0137387 001400 001140 MOV RMER2I1,$GDDAT :EXPECTED STATUS 
255 060154 042737 002 001140 BIC C. $GDDAT 
256 060162 013737 001400 001142 MOV RMERST. $BDDAT  ;RECEIVED STATUS 
257 060170 062716 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
258 060174 112776 000311 000000 MOVB #311,a@(SP) “WRITE ERROR NUMBER IN CALL 
259 060202 162716 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
260 0602 736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
261 060210 162716 000010 SUB #10, (SP) *RESTORE SP TO NO ERROR 
262 060214 2 
263 060216 170$: 
265 :REPORT LOS OF SYSTEM CLOCK, I.—.. "LSC" 
060216 032737 004000 001400 BIT #LSC,RMERZ] :1S scr" =| 12? 
267 060224 001422 BEQ 180$ : 
060226 013737 001400 001140 MOV RMER21,$GDDAT < EXPECTED STATUS 
269 060224 042737 001140 BIC #LSC,$GDDAT 
270 060242 913737 001400 001142 MOV RMER2].S$BDDAT  :RECEIVED STATUS 
271 060256 062716 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
272 060254 112776 000312 000000 MOVB  #312,a(SP) “WRITE ERROR NUMBER 
273 060262 736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
274 060264 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 
275 060270 000240 
é 76 060272 180$: 
278 :LOOK FOR ‘UNS’' OR 'DTE’’ OR 'WLE’' IN ERROR REGISTER #1 
279 060272 032737 054000 001352 BIT SUNS ‘DIE !ULE, RMER a1] 
280 060300 001527 BEQ 220$ NO BITS SET 
:REPORT “'UNS'’ ERROR IF ‘"DVC'' = i 
060302 032737 040000 001352 BIT #UNS ,RMER1 | :1S "UNS'' SET?? 
283 060310 001427 BEQ 190$ “NO! ! a 
284 060312 032737 000200 001400 BIT #DVC,RMER2Z! “WAS "UNS'' CAUSED BY ‘DVC''?? 
285 060320 001023 BNE 190$ “YES! ! 





SE ee ee -_>- 


ane 
-_—_— 


286 060322 
287 060350 


013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 


032737 
3 


004736 
162716 


032737 


004736 
162716 


962716 
105776 


001404 
162716 
000137 
162716 
013737 


042737 
022737 
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001352 
049000 
001352 
000004 
000313 
000002 
000010 


010000 


000004 
000000 


000004 
061600 
000004 


001412 
177700 
000063 
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001140 MOV RMER11,$GDDAT ;EXPECTED STATUS 
001140 BIC UNS , $GDDAT 
001142 MOV RMER I I SBDDAT =; RECEIVED STATUS 
ADD (SP5 VE SP TO USERS ERROR CALL 
000000 MOVB ais a (SP) : WRITE ERROR NUMBER 
SUB #2, ( OVE SP TO RETURN IF ERROR 
JSR PC *atsp)s “REPORT ERROR AND RETURN 
SUB #10, (SP) “RESTORE SP TO NO ERROR 
190$: 
;REPORT ANY DRIVE TIMING ERROR, 1.E., ‘DTE'’ = 1 
001352 eI #DTE,RMER1! its OTE SET?? 
001140 MOV RMER1I1,$GDDAT  :EXPECTED STATUS 
001140 BIC #DTE,$GDDAT 
001142 MOV RMERII.$BDDAT  ;RECEIVED STATUS 
ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
000000 MOVB #314,a(SP) “WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) ;MOVE SP TO RETURN IF ERROR 
JSR PC a(SP)* ‘REPORT ERROR ‘ND RETURN 
SUB #10, ( “MOVE SP TO NO ERROR 
200$: 
:REPORT AN ERROR IF WRITE LOCK ERROR IS SET. SEE IF DRIVE iS NOT 
WRITE PROTECTED, OR IF FUNCTION WAS NOT ITE 
001352 BIT #WLE .RMER1I ;WAS MYLES SET?? 
BEQ 220$ *NO!! 
001142 MOV RMER11.$BDDAT :RECEIVED STATUS 
001140 MOV RMER11. SGDDAT 7EXPECTED STATUS 
001140 BIS #WLE, $GDDAT 
ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
000000 VB #315,a(SP) “WRITE ERROR NUMBER IN CALL 
001350 BT ar WAS, DRIVE WRITE PROTECTED?? 
001412 BIT #BIT3,.RMCS1O §_: WAS COMMAND A WRITE?? 
BEQ 21 TYES!! 
000000 205%: MOVB  #316,a(SP) “CHANGE ERROR NUMBER 
001140 BIC #WLE ,SGDDAT 
210$: SUB #2, (SP) ;MOVE SP_TO RETURN IF ERROR 
JSR PC a(SP)+ ‘REPORT ERROR AND RETURN 
SUB #10, ¢ *MOVE SP TO NO ERROR 
2208: 
: OMIT DATA pERROR CHECKS IF ANY PREVIOUS ERRORS HAVE BEEN DETECTED 
#4, (SP) :MOVE SP TO USER'S ERROR 
TS78 a(SP) “WAS ERROR DETECTED?? 
BEQ 225$ ;NO - DO DATA CHECKS 
SUB #4. (SP) “RESTORE SP 
JMP 3 “SKIP DATA CHECKS 
225$: SUB #4, (SP) “RESTORE SP 
:CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA, AND 
“IF HEADER COMPARE IS NOT INHIBITED 
062170 MOV RMCS10,5 :STRIP AND STORE FUNCTION “CDE 
062170 BIC #* CFNCMSK 510$ 
062170 CMP #wH'!GO,510$ “WAS FUNCTION WRITE HEADEF . DATA?? 


OL _S-SSs-n =e 
SS ee ee te em - 


L 
CZ7RMOBO RMO5/5/2 FCTINL TST 3 MACRO VO04.00 4=-APR=81 01:15:59 PAGE 33-6 


DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE SEQ 0245 
343 060630 001512 BEQ 250$ YES = SKIP HEADER CHECKS 
344 060632 032737 002000 001370 BIT #HC1,RMOF | :was HC] SET?? 

345 060640 001106 BNE 250$ ‘YES = SKIP HEADER CHECKS 
347 :SEE IF ANY HEADER ERRORS ARE SET, I.E., ‘FER’ OR “HCRC’’ OR ‘HCE’ 
348 060642 032737 000620 001352 BIT WHCRC!FER!HCE RMERT I 

349 060650 001533 BEQ 270$ :NO ERRORS SET 

351 “REPORT HEADER CRC ERROR IF SET 

352 060652 032737 000400 001352 BIT WHCRC,RMER1I  ;:WAS HCRC SET?? 

353 060660 001422 BEQ 230$ “NO! ! 

354 060662 013737 001352 001140 MOV RMER1I.$GDDAT EXPECTED STATUS 

355 060670 042737 000400 001140 BIC #HCRC, $GDDAT 

356 060676 013737 001352 001142 MOV RMER 1 I SBDDAT :RECEIVED STATUS 

357 060704 062716 000004 ADD 4, (SP) “MOVE SP TO USERS ERROR 
358 060710 112776 000317 000000 MOVB ast a(SP) “WRITE ERROR NUMBER 

359 060716 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
360 060722 004736 JSR PC’ a(SP)+ “REPORT ERROR AND RETURN 
361 060724 000501 BR 260$ 

362 060726 230$: 

364 :REPORT FORMAT ERROR IF SET 

365 060726 032737 000020 001352 BIT #FER,RMER1I :WAS 'FER'' SET?? 

366 060734 001422 BEQ 2408. :NO!! 

367 060736 013737 001352 001140 MOV RMER1I,$GDDAT :EXPECTED STATUS 

368 960744 042737 000020 001140 BIC #FER,$GDDAT 

369 060752 013737 001352 001142 MOV RMER IT $BDDAT ;:RECEIVED STATUS 

370 060760 062716 000004 ADD “MOVE SP TO USERS ERROR 
371 060764 112776 000320 000000 MOVB ss B<SP) “WRITE ERROR NUMBER 

372 060772 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
373 060776 004736 JSR PC atsP)s “REPORT ERROR AND RETURN 
374 061000 000453 BR 260$ 

375 061002 2408: 

377 =REPORT HEADER COMPARE ERROR IF SET 

378 061002 032737 000200 001352 BIT #HCE,RMER1! “WAS ‘HCE’’ SET?? 

379 061010 001453 BEQ 2 :NO!! 

380 061012 013737 001352 001140 MOV RMER11, SGDDAT ‘EXPECTED STATUS 

381 061020 042737 000200 001140 BIC #HCE , $GDDAT 

382 061026 013737 001352 001142 MOV RMERII.$BDDAT  :RECEIVED STATUS 

383 061034 062716 000004 ADD #4. (SP) “MOVE SP TO USER'S ERROR 
384 061040 112776 000321 000000 MOVB 4321 a(SP) “WRITE ERROR NUMBER 

385 061046 162716 000002 SUB #2. (SP) “MOVE SP TO RETURN IF ERROR 
386 061052 004736 JSR PC-a(SP)+ “REPORT ERROR AND RETURN 
387 061054 000425 BR 260$ 

388 : THERE SHOULD BE NO HEADER ERRORS BECAUSE 

389 .COMMAND WAS WRITE HEADER AND DATA, OR 

390 : HEADER COMPARE INHIBIT WAS SET 

391 061056 032737 000620 001352 250%: BIT #HCE 'FER'HCRC,RMERT I 

392 061064 001425 BEQ 270$ :NO ERRORS WERE SET 

393 061066 013737 001352 001140 MOV RMER1] , SGDDAT “EXPECTED STATUS 

394 061074 042737 000620 001140 BIC WHCE'FER'HCRC, SGDDAT 

395 061102 013737 001352 001142 MOV RMER I $BDDAT ;RECEIVED STATUS 

396 061110 062716 000004 ADD SP5 “MOVE SP TO USER'S ERROR CALL 
397 061114 112776 000322 000000 MOVB 9332 a (SP) “WRITE ERROR NUMBER 

398 061122 162716 000062 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
399 061126 004736 SR PC a(SP)+ “REPORT ERROR AND RETURN 


ccemmsenmneinnne 


ES NE ee em me ~_ — 


400 061130 
401 0611534 


402 
403 061140 
404 
405 
406 
407 061140 


427 061254 


433 

434 

435 061304 
436 

437 

438 061504 
439 061312 
440 061314 
441 061322 
442 061330 
443 061336 
444 061342 
445 061350 
446 061354 
447 061356 
448 061362 
449 

450 061366 
45% 

452 

453 061366 
454 061374 
455 061376 
456 061404 


1627716 
000137 


032737 
001002 
000137 


032737 
001450 
013737 


032737 
001423 
013737 
042737 
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000010 
061600 


000010 
061366 


100000 
001352 
100000 
001352 
000004 
000323 
004000 
000324 
000100 
000020 
000004 


000325 
000002 


000010 


000400 
001346 
000400 
001346 
000004 
000326 
000002 


000010 
061600 


000001 
001350 
000001 


MACRO Vv04.00 


062170 


001352 
001140 
001140 
001142 
000000 
001370 
000000 
001352 


062170 


000000 


001350 


001140 
001140 


260$: 


2708: 


275$: 
;REPORT 


:DO NOT 


276$: 
280$: 


290$: 
7REPORT 


300$: 
310$: 


SUB 
JMP 


:1F COMMAND WAS A WRITE COMMAND, 
DO a a CHECKS 


Mm 3 
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#10, (SP) :MOVE SP TO NO ERROR 
340$ “OMIT FURTHER DATA CHECKS 


GO DO WRITE ERROR CHECKS, OTHERWISE 


#6113. ,510$ sWAS THIS A WRITE COMMAND? 


BNE “NO! ! 
JMP 310$ 7GO DO WRITE STATUS CHECK 
DATA CHECK I SET 

BIT #DCK,RMER11 :DATA CHECK ERROR?? 

BEQ 0$ =NO!! 

MOV RMER11,$GDDAT :EXPECTED STATUS 

BIC #DCK, $GDDAT 

MOV RMERII.$BDDAT  ;RECEIVED STATUS 

ADD #4. (SP *MOVE SP TO USER'S ERROR 
MOVB  #323,a(SP) “WRITE ERROR NUMBER 

BIT #EC1.RMOF I ;WAS ECC CORRECTION DISABLED? 
BNE 80$ “YES! 

MOVB  #324,a(SP) : aaiene TO RECOVERABLE ERROR 
BIT #ECH.RMER11 :1$ ERROR RECOVERABLE ?? 

BNE 276$ “NO ! 

REPORT RECOVERABLE ERROR IF READ COMMAND 

BIT #BIT4,510$ ;WAS THIS A READ COMMAND 7? 
BEQ 280$ “NO ! 

SUB #4, (SP) RESTORE SP 

BR 2 “SKIP ERROR - DATA WILL BE CORRECTED 
MOVB #325.a(SP) *CHANGE TO NON RECOVERABLE 
SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
JSR PC. a(SP)+ “REPORT ERRUR AND RETURN 
SUB #10, (SP) “RESTORE SP TO NO ERROR 
DATA BUS PARITY ERROR IF SET, I.E., MDPE = 1 

BIT #MDPE ,RMCS21 -PARITY ERROR SET?? 

BEQ 300$ “NO! ! 

MOV RMCS21.$GDDAT :EXPECTED STATUS 

BIC #MDPE . $GDDAT 

MOV RMCS21.$BDDAT  :RECEIVED STATUS 

ADD #4, (SP) “MOVE SP TO USER'S ERROR 
MOVB  #326,a(SP) “WRITE ERROR NUMBER 

SUB #2, (SP “MOVE SP TO RETURN IF ERROR 
JSR PC. a(SP)+ “REPORT ERROR AND RETURN 

SUB #10, (SP) “MOVE SP TO NO ERROR 

JMP 340$ “SKIP WRITE STATUS CHECK 


2 TES! es THAT OFFSET MODE WAS RESET; REPORT ERROR IF ‘OM’ = 1 


BEQ 
MOV 
BIC 





#OM -RMDS -1S OFFSET GN?? 
RMDSI,$GDDAT “EXPECTED STATUS 


#0M,$GDDAT 


SEQ 0246 


ee 
SS 


3 
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| BATA TRANSFER COMMAND STATUS CHECK SUBROUTINE SEQ 0247 

457 061412 013737 001350 001142 MOV RMS I . SBDDAT  :RECEIVED STATUS 

458 061420 062716 000004 ADD SP) [MOVE SP TO USER'S ERROR CALL 
459 061424 112776 000327 000000 MOVB m307 a(sP) “WRITE ERROR NUMBER IN CALL 
460 061432 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
461 061436 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 

462 061440 162716 000010 SUB #10. (SP) “MOVE SP TO NO ERROR 

463 061444 3208: 

465 -TEST FOR DATA BUS PARITY ERROR; REPORT ERROR IF ‘DPE'’ = 1 
66 061444 032737 000010 007400 BIT #ADPE .RMER21 :DATA PARITY ERROR?? 

467 061452 001423 BEC 330$ =NO!! 

468 061454 013737 001400 001740 MOV RMER21.$GDDAT :EXPECTED STATUS 

469 061462 042737 000010 001140 BIC ADPE , $GDDAT 

470 061470 013737 001400 001142 MOV RMER21.$BDDAT  ;:RECEIVED STATUS 

471 061476 062716 000004 ADD #4. (SP) “MOVE SP TO USER'S ERROR CALL 
472 061502 112776 000330 000000 MOVB #330,a(SP) “WRITE ERROR NUMBER 

473 061510 162716 000002 SUB #2, (SP) =MOVE SP TO RETURN IF ERROR 
474 061514 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 

475 061516 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 

rh 061522 330$: 

478 ;TEST FOR WRITE CLOCK FAILURE; REPORT ERROR IF ‘WCF'' = 1 

479 061522 032737 000040 001352 BIT #WCF .RMER11 :IS ‘WCF’* SET?? 

480 061530 001423 BEQ 3 “NO! ! 

481 0615 2 013737 001352 001140 MOV RMER1I1.$GDDAT :EXPECTED STATUS 

48¢ 1540 042737 000040 001140 BIC #WCF .SGDDAT 

485 061546 013737 001352 001142 MOV MERI I. SBDDAT ;RECEIVED_STATUS 

484 061554 062716 000004 ADD (SP) VE SP TO USERS ERROR CALL 
485 061560 112776 000331 000000 MOVB +35) a(SP) ; WRITE ERROR NUMBER 

486 061566 162716 000002 SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
487 061572 004736 JSR PC_a(SP)+ “REPORT ERROR AND RETURN 

488 061574 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 

rh 061600 340$: 

491 :REPORT "DATA LATE" ERROR IF ‘DLT’ = 1 

49 961600 032737 100000 001346 BIT #DLTRMCS21 :1S ‘DLT'' SET?? 

493 061606 001423 BEQ 3508" 

494 061610 013787 001346 001140 MOV RMCS2I, SGDDAT SOXPECTED STATUS 

495 061616 0497 =z 001140 BIC #DLT, $GDDAT 

4 1694 13737 001346 001142 MOV RMCS21,$BDDAT  ;RECEIVED STATUS 

497 061632 716 000004 ADD #4, (SP) “MOVE SP TO USERS ERROR CALL 
498 061636 112776 000332 000000 MOVB 135) @(SP) “WRITE ERROR NUMBER 

4 1644 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
00 1650 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 

01 165¢ 162716 000010 eae SUB #10, (SP) “MOVE SP TO NO ERROR 

208 > 1.00K FOR UNEXPECTED CHANGES IN DRIVE STATUS 

504 061656 013746 001350 RMDSI.-(SP) -STACK DRIVE STATUS 

305 1662 042716 147677 BIC #*(<PIP'MOL'VV>. (SP) :CLEAR DONT CARES 

06 061 022726 010100 CMP #MOL'VV.(SP)+ —:IS DRIVE STATUS OK?? 

507 061672 001522 BEQ 380% YES!! 

209 :REPORT ERROR IF POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR, 
510 -1.£, PIP = 1 AND SKI = 0 

611 061674 032737 020000 001350 BIT #PIP,RMDSI :1S ‘PIP’’ SET?? 

S12 061702 007430 7 ‘ BEQ 3608 3NO!! 

61% 061704 0827387 040000 001400 BIT #SK1.RMER2! “WAS ““SKI'’ ERROR REPORTED?? 


MVM 
MMA MWMMUIU 
WO DWNA US WPO 


565 
966 062164 
567 


568 062166 
569 062170 


004736 
162716 


032737 


000402 
162716 
000207 


000000 
000000 
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001350 
020000 
001350 
000004 
000333 
000002 


000010 
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001350 
001352 
001140 


360$: 
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BNE 360$ 

MOV RMDS1,$GDDAT 
BIC #PIP,$GDDAT 
MOV RMDS I . ,S80DAT 


;YES-DONT REPORT PIP 
sEXPECTED STATUS 


sRECEIVED STATUS 
;MOV 


E SP TO USERS ERROR CALL 


MOVB A383. 9<SP) ‘URITE ERROR NUMBER 
SUB #2, (SP) -MOVE SP TO RETURN IF ERROR 
JSR PC. a(SP)+ “REPORT ERROR AND RETURN 


SUB #i0. (SP) 


:MOVE SP TO NO ERROR 


;REPORT ERROR IF a. ot ny ON LINE AND OPI ERROR WAS NOT 


;REPORTED, 
BI 


370$: 


I.E., MO 
T AMOL ,.RMDS 1 


BIT #OPI ,RMER1] 
370$ 
MOV RMDSI ,SGDDAT 


RMDSI,$BDDAT 
ADD #4, (SP) 
MOVB  #334,a(SP) ° 
SUB #2, (SP) 
JSR PC ,a(SP)+ 

#10, (SP) 


‘a ON LINE?? 
WAS ¢ OPI ERROR REPORTED?? 


sEXPECTED STATUS 


sRECEIVED STATUS 

MOVE SP TO USER’S ERROR 
WRITE =RROR NUMBER 

;MOVE SP TO RETURN IF ERROR 
sREPORT ERROR AND RETURN 


:MOVE SP TO NO ERROR 


sREPORT ERROR IF VOLUME IS he VALID AND ‘‘IVC'’ ERROR WAS NOT 


“REPORTED, I.£., VV = IVC 
BIT #VV.RMDS! 
BNE 
BIT #IVC .RMER2I 
BNE 390$ 
MOV RMDS1,$GDDAT 
BIS #VV,$GDDAT 
MOV RMDS1, SBDDAT 
ADD #4, (SP) : 
MOVB #335,a(SP) : 
SUB #2, (SP) 
JSR PC a(SP)+ 


380$: 


SUB tiéa#100, (SP?) 


ir VALID?? 
WAS 1 IVC ERROR REPORTED?? 
SEXPECTED STATUS 


sRECEIVED STATUS 

:MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

aren SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 

“MOVE SP TO NO ERROR 


7 AUGMENT -_ oe ine IF ove = 10 


390$: 
400$: 


500$: 
510$: 


F OUND 
E SP 10. ERROR CALL 


TS iB 3¢§P) s ANY ERR 


BEQ 390$ 
ADD #4, (SP) 
400$ 


BR 
SUB #4, (SP) 
RTS PC 


sNO!! 

-YES - MOVE SP TO ERROR RETURN 
:MOVEC SP TO NO ERROR RETURN 
;RETURN TO USER 


;ERROR FLAGS 
; TEMPORARY STORAGE 


SEQ 0245 


C 4 
CZ7RMOBO RMOS/3/2 FCINL TST 3 MACRO V046.00 4-APR-81 01:15:59 PAGE 36 
STATIC DRIVE STATUS CHECK SUBROUTINE 


-SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 


:THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 

:STATUS, SUCH AS THE DRIVE LOSING VOLUME VALID. THE SUBROUTINE 
;CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE 
:SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE. 


oo CONDITIONS ARE TESTED AND REPORTED AS ERRORS 


O, INDICATES DRIVE WENT OFFLINE, NOTE 

SUMED TO HAVE BEEN SET 

, INDICATES THE DRIVE LOST VOLUME VALID 

1, INDICATES THAT THE DRIVE IS OFF CYLINDER 

1, INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR 
1, INDICATES AN UNEXPECTED DEVICE FAULT 


; -MOL 

> THAT MOL IS 
VV 

p 

I 


NOME WR OOO NOW WI- 
Be Be Be Be 
nv< 
— 


ew’ SS =’ st oe 


18 (3 THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 


20 34) JSR PC,STCDRVSTS 
21 ; BR 27? RETURN HERE IF NO ERROR 
; RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
Ls 4 RETURN HERE IF NO MORE ERRORS 


3939 
8 


26 
27 062172 STCDRVSTS: 


:CLEAR USER'S ERROR CALL 

062716 000004 ADD #4,(SP) ;MOVE SP TO USER*S ERROR CALL 

105076 000000 CLRB a(SP) >CLEAR ERROR NUMBER 

162716 000004 SUB #4, (SP) ;MOVE SP BACK TO NO ERROR RETURN 
:SEE If *MOL'’ = "VV" = 1, AND ‘PIP’ = 0 

013746 001350 MOV RMDSI,~(SP) od “DRIVE STATUS ON STACK 

042716 147677 BIC #°(<PIP!MOL ! VV>, (SP) 

022726 010100 CMP = 2 (SP)+ Hey Fy MOL.VV AND PIP 0.K.?? 


;REPORT AN ERROR IF MOL = 0 AND ‘OPI"* = 0 


| 

30 062172 

31 062176 

32 062202 

35 062212 

37 062222 

39 

40 062224 032737 010000 001350 BIT #MOL .RMDS I 31S MOL ON ?? 

41 062232 001030 BNE 10$ YES! ! 

2 032737 020000 001352 BIT #OP] .RMER1I “WAS “OPI"* SET?? 

43 062242 001024 BNE 10$ *YES=DONT REPORT ‘MOL"' = 0 

44 062244 013737 001350 001140 MOV RMDSI, SGDDAT “EXPECTED STATUS 

45 062252 10000 #MOL ,$GDDAT 

46 062260 013737 001350 001142 MOV RDS | 5SBDDAT :RECEIVED STATUS 
47 062266 062716 000004 ADD “MOVE SP TO USER'S ERROR CALL 
48 062272 112776 000207 000000 MOVB #207" a<SP) “WRITE ERROR NUMBER IN CALL 
49 062300 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
50 062304 004736 JSR PC a(SP)+ “REPORT ERROR VIA USER 

51 062306 162716 000010 SUB #10, (SP) “MOVE SP BACK TO NO ERROR RETURN 

| 

Be 


53 062514 10$: 


5 ;REPORT AN ERROR IF VOLUME VALID IS NOW ZERO AND ‘‘IvC*’ = 0 
14 032737 000100 001350 BIT #VV,RMDS1 :1S ‘v'' = 0?? 
22 001030 BNE 20% | =NO!! 


- ee er eee ee eR sree 


NE eT eT ey SSS SSS ss 


- we ow eee - 


—_—_— or owes 
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STATIC DRIVE STATUS CHECK SUBROUTINE SFO 025 

58 062324 032737 010000 001400 BIT #IVC,RMER2I sWAS ‘‘IVC'' SET?? 

59 062332 001024 BNE 20$ ‘YES=DONT REPORT ‘Vv'' = 0 

013737 001350 001140 MOV RMDSI,$GDDAT § :EXPECTED STATUS 

61 062342 052737 000100 001350 BIS #VV,RMDS1 

62 062350 013737 001350 001142 MOV RMDSI,$BDDAT  ;:RECEIVED STATUS 

63 062356 062716 000004 ADD #4, (SP) “MOV E SP TO USER'S ERROR CALL 
64 062362 112776 000210 000000 MOVB  #210,a(SP) sWRITE ERROR NUMBER IN CALL 
65 062370 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
66 062374 004736 JSR PC a(SP)+ “REPORT ERROR VIA USER 

67 062376 162716 000010 SUB #15, (SP) “MOVE SP BACK TO NO ERROR 

68 062402 060240 NOP 

99 062404 208: 

71 sREPORT AN ERROR IF DRIVE IS OFF CYLINDER AND ‘’SKI’’ = 0 

72 062406 032737 020000 001350 BIT #PIP,RMDS! ;1S DRIVE OFF CYLINDER?? 

73 062412 001430 BEQ 30$ *NO!! 

74 062414 032737 040000 001400 BIT #SKI,.RMER2I “WAS ‘'SKI'' SET?? 

75 062422 001024 BNE 30$ :YES=DONT REPORT ‘PIP’ = 

76 062424 013737 001350 001140 MOV RMDSI,$GDDAT EXPECTED STATUS 

77 062432 042737 020000 001140 BIC #PIP, $GDDAT 

78 062440 013737 001350 001142 MOV RMDS | , SBDDAT :RECEIVED STATUS 

79 062446 062716 000004 ADD 4, (SP) “MOVE SP TO USER'S ERROR CALL 
80 062452 112776 000211 000000 MOVB ail, a(SP) “WRITE ERROR NUMBER IN USER'S CALL 
81 062460 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
82 062464 004736 JSR PC a(SP)+ “REPORT ERROR VIA USER 

83 062466 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR RETURN 
84 062472 000240 NOP 

85 062474 30$: 

87 :SEE IF ‘'SKI'’ = 'DVC’' = 0 

BB 062474 013746 001400 MOV RMER21,-(SP) :PUT ERROR REG 2 ON STACK 

89 062500 042726 137577 BIC #*°C<SKI'!DVC>, (SP)+ 

90 062504 001460 BEQ 60$ :BRANCH IF NO ERROR 

91 062506 40$: 

93 :REPORT AN ERROR IF THERE IS A DEVICE FAULT 

94 062506 032737 000200 001400 BIT #DVC.RMER21 Y DEVICE FAULT?? 

95 062514 001424 REO 50$ ND! | 

9% 062516 013737 001400 001140 MOV RMER21,$GDDAT <PKPECTED STATUS 

97 062524 042737 000200 001140 BIC #DVC, $GDDAT 

98 062532 013737 001400 001142 MOV RMER?1.$BDDAT  ;:RECEIVED STATUS 

99 062540 062716 000004 AND #4, (SP) “MOVE SP TO USER'S CALL 
100 062544 112776 000212 000000 MOVB #212.a(SP) “WRITE NUMBER OF ERROR IN CALL 
101 062552 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERR 
102 062556 004736 JSR PC a(SP)+ “REPORT ERROR VIA USER 
103 062560 162716 00C910 SUB #10, (SP) “MOVE SP BACK TO NO ERROR 
104 062564 000240 NOP 
105 062566 50$: 
10 :REPORT AN ERROR IF “SkIe = 1 
1 2 032737 040000 001400 BIT #SK1,.RMER2] :IS THERE A SEEK INCOMPLETE ERROR 
109 062574 001424 BEQ 60 *NO!! 
110 062576 013737 001400 001140 MOV RMERZI,$GDDAT  :EXPECTED STATUS 

111 062604 042737 040000 001140 BIC #SK1,$GDDAT 

112 062612 013737 001400 001142 MOV RMERE SBDDAT RECEIVED STATUS 

113 062620 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CAL 
114 062624 112776 000213 000000 MOVB #218 a(SP) “WRITE ERROR NUMBER IN USER" : ERROR CALL 


— eee 
—_ re re er ere ee es ee a -- —_——- - 
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STATIC DRIVE STATUS CHECK SUBROUT! 
115 062632 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
116 062636 004736 JSR PC a(SP)+ “REPORT ERROR VIA USER : 
117 062640 162716 000010 SUB #10, (SP) “MOVE SP BACK TO NO ERROR 
118 062644 000240 NOP 
119 062646 60S: 
127 :AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
122 062646 062716 000004 ADD (SP :MOVE SP TO USER'S ERROR CALL 
123 105776 000000 TSTB 3¢8P) “WAS AN ERROR DETECTED?? 
124 062656 001403 BEQ 703 =NO!! 
125 062660 062716 000004 ADD #4, (SP) :VES = MOVE SP TO USER'S ERROR RETURN 
126 062664 000402 BR 80$ 
127 062666 162716 000004 70$: SUR #4,°(SP) s;NO = MOVE SP TO NO ERROR RETURN 
128 062672 000240 80$: NOP 
129 062674 000207 RTS PC :RETURN TO USER 


SEQ 0257 


—— Le 
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SAVE AND RESTORE RO-RS ROUTINES 


1 .SBTTL SAVE AND RESTORE RO=R5S ROUTINES 
ss ekeeanraneararanacegeeceaetaensaanrganaacaaeaenaageeaasatananaenanatace 
:*SAVE RO=R5 
Penet ese 
; *UPON RETURN FROM SSAVREG IME STACK WILL LOOK LIKE: 
 eTOP===(+16) 
;* +2-—-=(+18) 
7 ® +4=<-R5 
se +6===R4 
:* +8---R3 
> *+10---R2 
> &+12=-=R1 
3*+14---R0 
062676 SSAVREG: . 
062676 010046 MOV RO,-(SP) 7zPUSH RO ON STACK 
062700 010746 MOV R1,-(SP) : :PUSH R1 ON STACK 
062702 010246 MOV R2,-(SP) 7ZPUSH R2 ON STACK 
062704 010346 MOV R3,-(SP) 33 R3 ON STACK 
062706 010446 MOV R4,-(SP) : PUSH R4 ON STACK 
062710 010546 MOV R5,-(SP) ;7PUSH R5 ON STACK 
062712 016646 000022 MOV 22(SP), -(SP) : SAVE PS OF MAIN FLOW 
062716 016646 000022 MOV 22(SP) ,-(SP) >; SAVE PC OF MAIN FLOW 
062722 016646 000022 MOV 22(SP) .-(SP) >; SAVE PS OF CALL 
062726 016646 000022 MOV 22( SP) ,-(SP) ;: SAVE PC OF CALL 
062732 000002 RT] 
> *RESTORE RO-R5 
3 *CALL: 
.* RESREG 
062734 SRESREG: 
062734 012666 000C22 MOV (SP)+,22(SP) RESTORE PC OF CALL 
062740 012666 000022 MOV (SP) +,22(SP) > sRESTORE PS OF CALL 
062744 012666 000022 MOV (SP) +,22(SP) : RESTORE PC OF MAIN FLOW 
0627590 012666 000022 MOV (SP)+,22(SP) > : RESTORE PS OF MAIN FLOW 
062754 012605 MOV (SP)+,R5 :zPOP STACK INTO RS 
062756 012604 MOV (SP) +,R4 ::;POP STACK INTO R4& 
062760 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
062762 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
062764 012601 MOV (SP) +,R1 ::POP STACK INTO R1 


012600 MOV (SP)+,RO ;;P0P STACK INTO RO 
000002 


°°? harry 
a4 oe | 


. Fay 


TWPE ROUTINE 

010146 
016601 000006 
000261 
112737 000060 
006101 
0014 
105537 063044 
104401 063044 
000241 
000765 
012601 
01 000002 
012616 
000002 

000 000 


7c YT 3 


G 4 
MACRO V04.00 4-APR-81 01:15:59 PAGE 38 


-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


s MAPRBRBRBRRRRRBRRSRRRRSRARARRARARRRRRRRRRRRRRARRRRRRRRRRRRARRRRRRR RRS SS SS 


“*THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 16-81! 
:*BINARY=ASCi] NUMBER AND TYPE IT. 


7*CALL: 
-* 


$1 YPBN: MOV 


063044 1$: MOVB 


2$: MOV 
000004 MOV 


oe MOV 
TYPBN 


NUMBER , = (SP) 
R1,-¢SP) 
6(SP),R1 
#'0,$BIN 


1 
( 
2(SP).4(SP) 
(SP) +, (SP) 


0,0 


; NUMBER TO BE TYPED 
TYPE IT 


;; SAVE f&1 ON THE STACK 

;;GET THE INPUT NUMBER 

23 SET "'C’' SO CAN KEEP TRACK OF THE NUMBER OF BITS 
;SET CHARACTER TO AN ASCII ‘0’. 

:3GET THIS BIT 


; DONE? 
:NO=-SET THE CHARACTER EQUAL TO THIS BIT 
;:GO TYPE THIS BIT 
;;CLEAR *'C’’ SO CAN KEEP TRACK OF BITS 
+460 DO THE NEXT BIT 
POP THE STACK INTO R1 
: ADJUST THE STACK 


;7RETURN TO USER 
i:STORAGE FOR ASCII CHAR. AND TERMINATOR 


~~ ee ee RRR EN Ee SS ssSSs-sess-sssensnthsrssnnssseensieesenees 
— 


012601 


ST 3 
IMAL AND 


020200 
000020 
009055 


063262 
000040 


063252 


000001 
000060 
000040 


060010 


177777 


me ee ee ee 
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TYPE ROUT! 


000001 


177777 


177776 


NE 
- SBTTL 


; * SIGNED DECIMAL (ASCII) 
NUMBER IS POSITIVE OR NEGATIVE A 
* ABEF ORE THE FIRST DIGIT OF 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


° Sf eereaeenaaaaarenaeaaeeeeeanaaaanananganaaagnaananaaanenganaaaagrenes 


>*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5=DIGIT 


>*REPLACED WITH SPACES. 


**CALL: 


$TYPDS: 


1$: 
2$: 


3$: 


4$: 


5$: 


6$: 
7$: 


8$: 


of: 


MOV NUM, = (SP) 
TYPDS 


MOV RO,-(SP) 
MOV R1,-(SP) 


MOV #20200, et ali 


MOV > tall 
BPL 1$ 
NEG R5 
MOVB  #'=<1(SP) 
CLR RO 
MOV #$DBLK,R3 
MOVB #' .(R3)+ 
CLR R 
MOV $DTBL (RO) .R1 
SUB R1,R5 
BLT 4$ 
INC R2 
BR 3$ 
ADD R1,R5 
TST R2 
BNE 5 
TSTB ~—- (SP) 
BM] 7$ 
ASLB — (SP) 
BCC 
MOVB _—°1(SP) ,~1(R3) 
BIS Re 
BIS #" JRO 
MOVB _R2, (R3)+ 
TST (RO) + 
CMP RO.#10 
BLT 2$ 
BG] 8$ 
MOV R5R2 

6$ 
STB. —s«(SP) + 
BPL 9$ 
MOVB -1(SP),-2(R3) 
CLRB —s- (R3) 
MOV (SP) +,R5 
MOV (SP) +_R2 
MOV (SP) +. R2 


MOV (SP)+,R1 


— ee ee ee oe ee =e _—— —~ a 


THE 


NUMBER “—- TYPE IT. DEPENDING ON WHETHER THF 


SPACE OR A MINUS SIGN WILL BE TYPED 


NUMBER. LEADING ZEROS WILi ALWAYS BE 


37PUT THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


3;zPUSH RO ON STACK 
:z;PUSH R1 ON STACK 


: ZERO THE CONSTANTS INDEX _ 
“SETUP THE OUTPUT POINTER 
=:SET THE FIRST CHARACTER TO A BLANK 


+7 FORM THIS BCD DIGIT 


IF DONE 
3; INCREASE THE BCD DIGIT BY 3 


:;;ADD BACK THE CONSTANT 

:; CHECK IF BCD DIGIT= 

oat THROUGH IF 0 
sSTILL DOING LEADING 0°S? 
:=BR IF YES 

: SD? 

:;BR IF NO 

:; YES--SET THE SIGN 

7zMAKE THE BCD DIGIT ASCII 


7i:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
¢ PUT THIS CHARACTER IN THE OUTPUT BUFFER 


; JUST INCREMENTING 
>:CHECK THE TABLE INDEX 
;:GO DO THE NEXT DIGIT 
3:GO TO EXIT 
:3GET THE LSD 
:GO CHANGE TO ASCII 
: = Was a THE FIRST NON-ZERO? 


;YES~~SET THE SIGN FOR TYPING 
SET THE TERMINATOR 

‘POP STACK INIO R5 

POP STACK INTO R3 

::POP STACK INTO R2 

3:POP STACK INTO RI 
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-ONVERT BINARY TO DECIMAL AND TYPE ROUT] 


063232 012600 
063234 

| 

i 

Lich 


32 104401 063262 
065240 000002 
9632646 012616 
963250 


SDITAL: 


$DBLK: 


MOV (SP) +, RO ::POP STACK INTO RO 
TYPE $DAL K “NOW TYPE THE NUMBER 
MOV 2(SP) ,4(SP) SS ADJUST THE STACK 
MOV (SP) 4. (SP) 

RT! : RETURN 10 USER 
10000 

1000. 

100. 

10. 

-BLKW 4 


CZRMOBO RMO5/3/2 FCTNL TST 3, 
(ASCII) AND T 


BINARY TO OCTAL 


000000 
000001 
063517 
000002 
000001 


000006 
000005 
063517 


000006 
063516 
063515 
000012 


063516 
177770 


i § 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


SUI ISIIUIUIIIIIIIISIIOIIIIIIIIIIUIUIIIIIDIINIUIUIIIDIUUIUIIDIOIUU I nn Gn nanan 
= * THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6=-DIGIT 

> *OCTAL (ASCJ]1) NUMBER AND TYPE IT. 

> *$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 10 TYPE 


:8CA LL: 
MOV NUM, = (SP) 


. TYPOS 

7° .BYTE N 
;* BYTE ™ 
.* 

-* 


: ;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 
:;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3;M=1 OR O 
i: 1=TYPE LEADING ZEROS 
370=SUPPRESS LEADING ZEROS 


> *$TYPON-=--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


= *$TYPOS OR $TYPOC 

=*CALL: 

s* MOV NUM ,= (SP) 
TYPON 


$9 
e 


:* MOV NUM, = (SP) 
3 TYPOC 
$TYPOS: MOV a(SP) ,-(SP) 
063515 MOVB 1(SP) ,SOF ILL 
MOVB (SP) +, SOMODE +1 
ADD #2, (SP) 
BR TYPON 
063515 $TYPOC: MOVB #1,SOF ILL 
063517 MOVB ¢ + 
063514 $TYPON: MOVA #5, S0CNT 
MOY R3,-(SP) 
MOV R4,~(SP) 
MOV R5,-(SP) 
MOVB E+1,R4 
NEG 
ADD are. 
MOVB 4, SOMODE 
MOVB SOF ILL. R4 
MOV aia RS 
CLR 
1$: ROL Re 
BR 3$ 
23: ROL RS 
ROL R5 
ROL 5 
MOV RS,R53 
3$: ROL R3 
DECB SOMODE 
BPL 7$ 
BIC #177770,R3 
BNE 
TST R4 
BEQ 5$ 
4$: INC R4 


; NUMBER TO BE TYPED 
;;CALL FOR TYPEOQUT 


*® 
= HERE FOR TYPEOUT OF A 16 BIT NUMBER 


7 ;NUMBER TO BE TYPED 
3zCALL FOR TYPEOUT 


;sPICKUP THE MODE 

: ¢LOAD ZERO FILL SWITCH 
sNUMBER OF DIGITS TO TYPE 

: ADJUST RETURN ADDRESS 


7;SET THE ZERO FILL SWITCH 


3;SET FOR SIX(6) DIGITS 
a ITERATION COUNT 


SAVE RG 
77 SAVE R5 
::GET THE NUMBER OF DIGITS TO TYPE 
:; SUBTRACT IT FOR MAX. ALLOWED 
tf e IT FOR USE 
T THE ZERO Sit SWITCH - 
T NUMBER 
TCL WORD 
23 ROTATE MSB INTO ‘'C’’ 
DO MSB 
> FORM THIS DIGIT 


DIGI 


~4 
x 
os 

oOo WoO 


SE 


f ic 
Q Je yf 


- 


063436 
063442 


663516 


CZRMOBO RMO5/3/2 FCTNL TST — 
BINARY TO OCTAL (ASCII) 


052703 


AND 


000002 000004 


5$: 


7$: 


6$: 
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" syMAKE THIS DIGIT ASCII 


;;MArKE ASCII IF NOT ALREADY 


;:G0 DO THE “LAST DIGIT 
ESTORE R5 


ORE R3 
37SET THE STACK FOR RETURNING 
RETURN 


StST ORAGE FOR ASCII DIGIT 
;; TERMINATOR FOR TYPE ROUTINE 


TCH 
; ;NUMBER OF DIGITS TO TYPE 


SEG 0257 


we ees eee - = 


ne me ee ee ee ee 
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TYPE ROUTINE SEQ 0256 


.SBTTL TYPE ROUTINE 


'MOREBBRBABSRRBRRRRBRRRSR RARE RRRRRRRRRRRRRRRR RARER RRR RRR RR RR SRR S RARER SS SS 


® #ROUT INE TO TYPE ASCIZ eat MESSAGE MUST TERMINATE WITH A 0 hf 


“* THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
: ®NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
“ *NOTE2: SPILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
: «NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
*CAL 
=) “USING A TRAP INSTRUCTION 
ror YPE _ ,MESADR :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
vt 
: TYPE 
“ ME SADR 
*® 
063520 105737 001173 $TYPE: TSTB  $TPFLG 3315 THERE A TERMINAL? 
063524 100002 BPL 1$ “BR IF 
663526 000000 HALT + HALT HERE IF NO TERMINAL 
063530 000430 BR 3S ; s LEAVE 
063532 010046 1$: MOV RO,~(SP) *SAVE RO 
063534 017600 000002 MOV a2 (SP) ,RO 35GE7 ADDRESS OF ASCIZ STRING 
063540 122737 000001 .001242 CMPB ss WAPTTENV,, SENV “RUNNING IN APT MODE 
063546 001011 BNE 62$ «*NO,GO CHECK FOR APT CONSOLE 
063550 132737 000100 001243 BITB § #APTSPOOL,SENVM ::SPOOL MESSAGE TO APT 
063556 001405 BEQ 62$ ;3NO,GO CHECK FOR CONSOLE 
063560 010037 063570 MOV RO,61$ *SETUP MESSAGE ADDRESS FOR APT 
063564 004737 070166 JSR PC-$ATY3 >:SPOOL MESSAGE TO APT 
063570 000000 61$: .WORD 0 > :MESSAGE ADDRESS 
963572 132737 000040 001243 62$:  # BITB  #$#APTCSUP.S$ENVM ::APT CONSOLE SUPPRESSED 
063600 001003 BNE $ ::VYES,SKIP TYPE OUT 
063602 112046 2$: MOVB (RO) +,=(SP) ; 7PUSH CHARACTER TO BE TYPED ONTO STACK 
063604 001005 BNE 4$ “BR IF IT ISN'T THE’ TERMINATOR 
063606 005726 TST (SP)+ >: JF TERMINATOR POP IT OFF THE STACK 
063610 012600 60$: MOV (SP) +,RO *:RESTORE RO 
063612 062716 000002 3$: ADD #2, (SP) 3 ADJUST RETURN PC 
063616 000002 RTI +: RETURN 
063620 122716 000011 4$: (MPR ss HHT, (SP) : “BRANCH IF <HT> 
063624 001430 BEQ 
063626 122716 000200 (MPR ss CRLF, (SP) : BRANCH IF NOT <CRLF> 
063632 001006 BNE S$ 
063634 005726 TST (SP) + :;POP <CR><LF> EQUIV 
063636 104401 TYPE :: TYPE A CR AND LF 
063640 001217 SCRLF 
663642 105037 064050 CLRB = $CHARCNT i: CLEAR CHARACTER COUNT 
063646 000755 BR 2$ :iGET NEXT CHARACTER 
063650 004737 063732 S$: JSR PC. $TYPEC *GO TYPE THIS CHARACTER 
063654 123726 001172 é$: (MPR Otsé«SLLLC (SP)*  ::3S IT TIME FOR FILLER CHARS .? 
063660 001350 BNE 2$ :: TF NO GO GET NEXT CHAR. 
063662 013746 001170 MOV $NULL ,- (SP) *:GET # OF FILLER CHARS. NEEDED 
*:AND THE NULL CHAR, 
105 000001 7$: DECB ~—ss:«41 SP) = DOES A NULL NEED TO BE TYPED? 
063672 002770 BLT 6$ “BR IF NO=-GO POP THE NULL OFF OF STACK 
063674 004737 063732 ISR PC $TYPEC *:GO TYPE A NULL 
063700 105337 064050 DECB  $CHARCNT "DO NOT COUNT AS A COUNT 
063704 000770 BR 7$ == LOOP 


LL Cee. 8 eee | ee ee 


CZ7RMOBO RMO5/3/2 FCTNL 
TYPE ROUTINE 


——— a 


112716 


005726 


TST 3 


000040 
063732 
000007 


115222 
115216 
177600 
000023 
115176 


115172 


115154 


000002 
000915 


064050 
000012 
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064050 


115146 
000002 


000002 


:HORIZONTAL TAB PROCESSOR 
8$: MOVB 


9$: JSR 


$STYPEC: 


101$: 


102$: 
10$: 


BR 
1$: CMPB 
BE 


NCB 


I 
$SCHARCNT : . WORD 


$TYPEX: RTS 


#’ (SP) 
PC, $TYPEC 
#7. SCHARCNT 
9$° 


(SP)+ 
2$ 


a$TKS 

10$ 
a$TKB,-(SP) 
#177600, (SP) 
WSXOFF , (SP) 
102$ 

a$TkS 

as Tke (SP) 
#177600, (SP) 
#$XON, (SP) 
101$ 

(SP) + 

asTPs 


10$ 
2(SP) ,aSTPB 
—— 


SCHARCNT 
STYPEX 
ALF ,2¢SP) 
STYPEX 
(PC)+ 


0 
PC 


ty ae TAB WITH SPACE 
‘+ BRANCH SPACE 
ANCH IF NOT AT 


:TAB ST 
“ SPOP SPACE OFF STACK 
;;GET NEXT CHARACTER 


;;CHAR IN KYBD BUFFER? 
:3BR IF NOT 


;GET CHAR 
;; STRIP +. BITS 
‘3 WAS CHAR XOFF 
IF NOT 


:z;WAIT FOR CHAR 


;;BR IF NOT 
szF 1X STACK 
::WAIT UNTIL PRINTER IS READY 


LOAD CHAR TO BE TYPED INTO DATA REG. 
31S gens Ye A CARRIAGE RETURN? 


::YESe=CLEAR CHARACTER COUNT 
33hs CHARACTER A LINE FEED? 


> COUNT THE CHARACTER 
3; CHARACTER COUNT STORAGE 


SEQ 025% 


*  €7RMOBO RMOS/3/2 FCINL TST 3 
SCOPE HANDLER ROUTINE 


ROA RURRUORMAURS 


S2SuS—5 


REFSSLESSSSESSSESSSSIP ESS 
RINSEREPLS SEP NS EE 


FR 
* 

RR ww 
PAK AOOLM EN 


5 


104410 
004737 

032777 
001402 
000137 


000416 
013746 


® 
a= 


WWAE New 
~~ — —3 (yj 


= 
—> 
mi 
SON NOOO NO EO 


SSslslssxnss 
URE NOUNS 
as pane MIWOWN Sw 
ONANNOUNIU 


064612 
040000 


064522 


000004 
064124 
177060 
000004 


000004 
000400 


115002 
000025 
001116 
064540 
001122 
001117 
177777 
000004 
064246 
177766 


177777 
064262 
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115064 


000004 


115012 


065230 


000094 
065230 
065230 


-SBTTL SCOPE HANDLER ROUTINE 


PETTITT ITIL ii titi iti tii iii iii iii iti ii iis. 
“STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
>*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
; * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


LOOP ON TEST 
INHIBIT oo 


9$: 
SAARAASTART OF _ FOR THE XOR 


$XTSTR: BR 


5$: CMP 


63%: ;4AAAAEND OF 


8$: TST 
23: TSTB 


20008: 


LOOP ON ER 


OR 
LOOP ON TEST IN SWR<7:0> 
3; SCOPE=IJOT 


PC,STOP 
#B1T14,aSWR 
9$ 

SOVER 


QFERRVEC,-(SP) 
#5$, AAERRVEC 
177060 


av 
(SP) + ,@#ERRVEC 
$SSVLAD 
(SP)+,(SP)+ 
Salad -@#ERRVEC 


;zTEST FOR CHANGE IN SOF T=SwR 


3;LOOP ON PRESENT TEST? 
:;NO IF SW14= 
;;JUMP OVER SCOPE ROUTINE 


TESTERAAAAA 
331F RUNNING ON THE ‘'XOR'' TESTER CHANGE 
3:THIS INSTRUCTION TO A ‘NOP*’ (NOP=240) 
33SAVE THE CONTENTS OF THE ERROR VECTOR 
23 SET FOR TIMEOUT 

;TIME OUT ON XOR? 
::RESTORE THE ERROR VECTOR 
::GO TO THE NEXT TEST 
3:CLEAR THE STACK AFTER A TIME OUT 
: sRESTORE THE ERROR VECTOR 

LOOP ON THE PRESENT TEST 


7 
CODE A Osun XOR TESTERAMAAM 


4B1T08 
2$ 


=(SP) . 
gees. SSP) 


#25, (SP) 

8$ 

(SP) ,STSTNM 
(SP) 


(SP) 
A$SWO8TBL , (SP) 


a(SP)+,$LPADR 
$0 


177766, CPSAVE 
001$ 


2 
#-1, CPSAVE 
#2001$, (SP) 


;;LOOP ON SPEC. TEST? 
:>:BR IF NO 


: CLEAR A_TEMP. LOCATION 
PICKUP THE DES'RED TEST NUMBER 

«BRANCH IF BAD TEST NUMBER IN SWR 
$3 CHECK THE NUMBER IN THE SWR 

;BRANCH IF TEST NUMBER IS OUT OF RANGE 
; ;UPDATE THE TEST NUMBER 

er BY ONE 

;;SCALE THE TEST NUMBER AS AN INDEX 

7FORM THE ADDRESS OF TEST POINTER 
SISET LOOP ADDRESS TO DESIRED TEST 

:GO LOOP ON THE TEST 
1 CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
; ;HAS a tee OCCURRED? 


; I 

:ISEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
zKICK AROUND ROUTINE IF SO 

>:SAVE CONTENTS OF +g VECTOR 

7:SETUP ‘TRAP’. RETURN ADDRESS 

::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 


7:SET CPU ERROR REGISTER TIMEOUT INDICATOR 
7; SETUR RETURN ADDRESS 


SEQ 0260 


064260 
064262 


540 


CZ7RMOBO RMO5/3/2 FCTNL 
SCOPE HANDLER ROUTINE 


000002 
012637 
022737 
001430 


012676 
012637 


123737 


TST 3 


¥00004 
177777 
000001 
000001 
001154 
000000 
000176 
114616 
001000 
000000 
001154 
061131 
0C1000 
001124 


001117 
001206 


g 8 25 
238s 


; 
¥ 


S8S8ss 
ad eed ed ed od 
WR we 
—fhyny--— 


MAO fMAO 


Ss 
as 
— 2 
N= 
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065230 
065230 
177766 


001154 
114610 


001717 
114560 
001122 


114526 


001120 


091120 
001206 


001226 


001131 
114426 


2001$: 
2002$: 


2003$: 


7$: 


4$: 


3$: 


1$: 


SSVLAD: 


SOVER: 


SMX CNT : 


$SWO8TBL : 
PT 


(SP) + ,ERRVEC 
#-1, CPSAVE 
2003$ 
#81700, CPSAVE 
003$ 
#81T00,177766 
SWR,- (SP) 
a(SP), -(SP) 
#176, SWR 
(SP) .aSWR 
#1109, aSwWR 


(SP) +,a(SP) 
(SP) +, SWR 


oo 
aaa 
$LPERR,$LPADR 
SOVER 


SERFLG 
STIMES 


1$ 
#B1T11,aSWR 
1$ 

SPASS 


1$ 

SICNT 
STIMES,.SICNT 
SOVER 
#1,$1CNT 
SMXCNT,STIMES 
STSTNM 
STSTNM,STESTN 


- SERMAX 
STSTNM,@DISPLAY 
SLPADR, (SP) 


TST1+2 


TST11#2 


;;RESTORE CONTENTS OF ERROR VECTOR 
+s SEE gy HAS CPU ERR REG TIMEOU’ INDICATION 


::SEE IF THE POWER MONITOR BIT IS ON 
BRANCH TO CONTINUE ROUTINE IF CLEAR 
;3CLEAR THE BIT FOUND TO BE SET 

7SAVE SWR ADDRESS 
7:SAVE SWR VALUE 
::GET SOFTWARE SWR ADDRESS 
3GET CURRENT SWR VALUE 

DON'T ALLOW LOOP ON ERROR ON THIS ERROR 

deCALL PECIAL POWER FAIL BIT ERROR CALL 
aa ES TORE SWR TO ORIGINAL VALUE 

3 gRESTORE SWR ADDRESS 


i MAX. ERRORS FOR THIS TEST OCCURRED? 
<P OOP ON ERROR? 

:;BR IF NO 

-:SET LOOP ADDRESS TO LAST SCOPE 


;;ZERO THE ERROR FLAG 
;sCLEAR THE NUMBER OF — TO MAKE 
;sESCAPE TO THE NEXT TEST 
fh) ar: a acetal 
ce IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
“EINCREMENT ITERATION COUNT 
: s CHECK THE NUMBER OF ITERATIONS MADE 
IF MORE ITERATION REQUIRED 
; ;REINITIALIZE THE ITERATION COUNTER 
:SET NUMBER OF ITERATIONS TO DO 
7: COUNT TEST NUMBERS 
2 SET TEST NUMBER IN —_— 


ADDRESS 
: CLEAR THE ESCAPE FROM ERROR ADDRESS 
sONLY ALLOW ONE(1) ERROR ON NEXT TEST 
:;DISPLAY TEST NUMBER 
; «FUDGE ~ ee ADDRESS 
scFIXES P 
7 MAX. NUMBER OF ITERATIONS 


;;STARTING ADDRESS OF 
;zSTARTING ADDRESS OF 
:zSTARTING ADDRESS OF TEST 
:;STARTING ADDRESS OF TEST 
3;STARTING ADDRESS OF 
:;STARTING ADDRESS OF 
: STARTING ADDRESS OF 
ARTING ADDRESS OF 
‘STARTING ADDRESS OF 
STARTING ADDRESS OF 


“+ 
Mm 
“” 
“4 

3 NOU EWR 


mw—O 


CZRMOBO RMO5S/ $/2 hae TST 3 


SCOPE HANDLER ROU 
064564 
566 


OO NO 


064636 
10 064636 


TINE 


034600 
035626 


612746 
012746 
000002 


012746 
012746 
000002 


000207 


000140 
064424 


000240 
0646 36 
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sDROP PRIORITY TO ALLOW CONSOLE 
STOP: 


64$: 


MOV 
MOV 


RTI 


#PR3,-(SP) 
#64$,-(SP) 


+ STARTING ADDRESS 


: STARTING ADDRESS 
; STARTING ADDRESS 
: STARTING ADDRESS 
s STARTING ADDRESS 
: STARTING ADDRESS 


INTERRUPT 


37PUT NEW PS ON STACK 
STACK 


;zPUT NEW PC ON 


3;POP NEW PC AND PS 


RAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 


65$: 


#PR5 ,- (SP) 
#65$,-(SP) 


PC 


3;PUT NEW PS ON STACK 
STACK 


;3PUT NEW PC ON 


:;POP NEW PC AND PS 


RETURN 


CZ7PMOBO 8M05/3/2 FCTNL TST 3 


ERROR HANDLER ROU 


9 
‘ 


TINE 


105037 


000002 
012637 
022737 


105037 
032777 
001004 
004737 


065232 
001117 
001116 
902000 


177777 
065016 


000004 
177777 
000001 
000001 
an 
065232 
020000 
065234 
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001132 
001130 
114224 


001130 


065230 
000004 
065230 
065230 


065230 
065230 
177766 


065232 
001130 


114054 


SEQ 026% 
-SBTTL ERROR HANDLER ROUTINE 


'WReARRRRRRARRRARARRRRRARARRAR RR RR RR RR RRR RR RRR RASRRRRRRRRRRR SR RAR SS ES SE | 


:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
; *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO ERRTYP ON ERROR 

:* THE SWITCH at tong Bh BY THIS ROUTINE ARE: 


+ *SW1 T ONE 
* SW 3=1 INHIBIT ERROR TYPEOUTS 
= *SW10=1 BELL ON ERROR 
<< LOOP ON ERROR 
:* L 
;* ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
S$ERROR: CLRB IBSAVE ;;CLEAR THE ITEM BYTE SAVE LOCATION 
CKSWR sz: TEST FOR CHANGE IN SOF T-SwR 
7$: INCB SERFLG +3 SET THE ERROR FLAG 
BEQ 7$ :DON'T LET THE FLAG GO TO ZERO 
MOV STSTNM,@DISPLAY + = DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #B1T10,aSWR ;sBELL ON ERROR? 
BEQ 1$ . SKIP 
TYPE , SBELL : SING BELL 
1$: INC SERTTL ; COUNT THE NUMBER OF ERRORS 
MOV (SP) , SERRPC + GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 
MOVB @SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #BITO9,aSWR +3 SEE IF LOOP ON ERROR IS SET 
BNE 1004$ AR ROUTINE IF SO 
CMPB #177, SITEMB 77 SEE IF THIS IS THE POWER FAIL CALL 
BEQ 1004$ s;BRANCH AROUND ROUTINE IF IT IS 
TSTB IBSAVE :3 SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
BNE 1003$ CH IF SO 
CMP #-1,CPSAVE ; SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BEQ 1004$ CH IF SO 
MOV ERRVEC,-(SP) : > SAVE CONTENTS OF ERROR VECTOR 
MOV #1000$ ,ERRVEC :: SETUP ‘TRAP* RETURN ADDRESS 
A ia ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
1000$: MOV #~-1,CPSAVE ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
Alas #1001$, (SP) :;SETUP RETURN ADDRESS 
1001$: MOV (SP) +, ERRVEC : ;RESTORE CONTENTS OF ERROR VECTOR 
1002S: CMP #-1,CPSAVE ::SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BEQ 1004$ ; BRANCH IF SO 
BIT #B1T00,CPSAVE ::;SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
BEQ 1004$ ¥ CH IF OK 
BIC #B1T00,177766 ; CLEAR THE BIT FOUND SET 
MOVB SITEMB, IBSAVE :MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
MOVB #177,$1TEMB SET SITEMB TO SPECIAL POWER FAIL POINTER 


BR 1004$ ;;BRANCH OVER IBSAVE CLEARING 


10038: CLRB —s«IBSAVE =:CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
"BIT #81113, aSWR ::SKIP TYPEOUT IF SET 
BNE 2 < SKIP TYPEOUTS 
JSR PC ERRTYP "G0 TO USER ERROR ROUTINE 


ee ene 
- —EE 
ee 


So ee ee ee ee ee ee 


CZRMOBO RMOS/3/2 FCTNL 
FEROR HANDLER ROUTINE 


104401 
122737 
001007 


00473 


104410 


013716 
022737 
001001 
000000 


105737 
001210 
000002 


000000 
VO0000 


TST 3 


001277 
000001 


001130 
070176 


065232 
114002 


001000 


001124 
001210 


001210 
037242 


065232 


: > 
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001242 
065134 


113766 


000042 


20$: 


5$: 


6$: 


CPSAVE: 
IBSAVE: 


TYPE 


HAL T 
TSTB 
BNE 
RTI 


- WORD 
. WORD 


- SCRLF 
taal 


SITEMB,21$% 
— 


0 

22$ 
IBSAVE 
3$ 
aSwWR 
3$ 


#BITO9,aSWR 


4$ 
$SLPERR, (SP) 
al 


$ 
SESCAPE , (SP) 
#SENDAD . 0442 
6$ 


IBSAVE 


7$ 
0 
0 


7 RUNNING IN APT MODE 

33NO,SKIP APT a o Ince 

3;SET ITEM NUMBER AS ERROR NUMBER 
;zREPORT FATAL ERROR TO APT 


3 ZAPT ERROR LOOP 
:;SEE IF IBSAVE IS LOADED 
BRANCH IF NOT - NO HALT ON PWR MON BIT ERROR 


: HALT ERR 
3zSKIP IF CONTINUE 
HALT ERROR! 


sé ON . 
iz TEST FOR CHANGE IN SOF T-SwWR 
: sLOOP ON ERROR SWITCH SET? 


;BR IF NO 
: FUDGE RETURN FOR LOOPING 
Fg FOR AN ESCAPE ADDRESS 


IF NONE 
7:FUDGE RETURN ADDRESS FOR ESCAPE 


3sACT=11 AUTO-ACCEPT? 
: s BRANCH IF NO 


:2;SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
: ae BACK TO CALL ORIGINAL ERROR 


TURN 
>:LOCATION TO SAVE CPU ERROR REG CONTENTS 
;;LOCATION TO SAVE ITEM BYTE 


Le 


_———EE NE A A A ———————— ee eee. 
ewe ae oe ee + -— 
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-SBTTL ERROR TYPEOUT ROUTINE 


>*THE ERROR TYPEQUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
¢ *REGARD ING THE DETECTION OF AN ERROR AS FOLLOWS: 


; UNIT NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER AND 
: sPROGRAM COUNTER ARE PRINTED ON THE FIRST LINE; 
: .ERROR MESSAGE IS ASSEMBLED, FORMATTED AND PRINTED ON 
: + ONE OR MORE SUCCEEDING LINES; 
-PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 


z 
4 
5 
6, 
? 
- 
6 
"1 «AFTER THE ERROR MESSAGE. 
13 065234 106414 ERRTYP: SAVREG 
14 065236 032777 020000 113710 BIT #Sw13,aSwWR : INHIBIT TYPEQUTS?? 
15 065244 001402 BEQ 1$ 
16 065246 000137 066074 JMP 27$ ‘vESi! 
18 -TYPE UNIT NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER, AND 
19 “PROGRAM COUNTER 
20 665252 106401 001217 i$: TYPE $CRLF 
21 965256 104401 0661710 TYPE *ERTYOO : TYPE ‘DRVA’’ 
22 065262 013746 001234 MOV SUNIT,-(SP) SAVE SUNIT FOR TYPEOUT 
; >: TYPE DRIVE NUMBER 
065266 104403 TYPOS -:GO TYPE=-OCTAL ASCII 
065270 003 . .BYTE 3 -: TYPE 3 DIGIT(S) 
Pe 065271 000 "BYTE 0 =: SUPPRESS LEADING ZEROS 
a 
2h ;TYPE "DRIVE TYPE* RMOS, RMO3 OR RMO2 FOR UNIT UNDER TEST 
25 065272 013700 001276 MOV $BASE ,RO -GET RM BASE ADDRESS 
26 065276 016000 900026 MOV RMD T (RO) .RO “GET DRIVE TYPE REGISTER 
27 065302 042700 177740 BIC #1777640.RO “SAVE DRIVE TYPE BITS AND 
28 065306 012737 071453 065360 MOV #SRMO3, 3$ *GET ASCI] DRIVE TYPE 
29 065314 022700 000024 CMP #24,R0 “1S DEVICE AN RMO3 ? 
30 065320 001414 BEQ 2$ 7YES |! 
32 065322 012737 071446 065360 MOV #SRMO2, 3$ :SAVE ASCII DRIVE TYPE 
33 065330 022700 000025 CMP #25,RO 71S DEVICE AN RMO2 ? 
34 065334 001406 BEO 2$ “YES |! 
% 065336 012737 071460 065360 MOV #SRMOS , 3$ :SAVE ASCII DRIVE TYPE 
37 065344 022700 000027 CMP #27.RO 71S DEVICE AN RMOS ? 
38 065350 001004 BNE 4$ *NO !! 
39 065352 104401 066145 2$: TYPE “ERTYOS “TYPE *' =" 
40 065356 104401 TYPE > TYPE DRIVE TYPE 
41 065360 000000 3$: .WORD 0 “DRIVE TYPE MESSAGE IS STORED HERE 
43 - TYPE TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER 
44 065362 005037 066100 Lg: CLR TSTNMB -LOAD TEST NUMBER FOR 
45 065366 013737 001226 066100 MOY STESTN, TSTNMB 
46 065374 104401 066115 ; YPE SERTYO1 ;TYPE "'TST#"’ 
47 065400 013746 066100 MOV ee, -(SP) -SAVE TSTNMB FOR TYPEQUT 
“TYPE TEST NUMBER 
065404 104403 TYPOS ::G0 TYPE--OCTAL ASCII 
065406 003 BYTE 3 :;TYPE 3 DIG 
065407 000 “BYTE O : SUPPRESS CE ADING ZEROS 
48 065410 005037 066102 | CLR ERRNMB “LOAD ERROR NUMBER FOR 
49 065416 113737 001180 066162 MOVB  $ITEMB.ERRNMB :TYPEOUT 


EE ae = 


. ce 


G 5 
“7RMOBO RMOS/3/2 FCTINL TST 3 MACRO VO06.00 4=-A4PR-87 01:75:59 PAGE 44-1 
ERROR TYPEOUT ROUTINE 


50 065422 001406 REQ 5$ ;SKIP IF aNd, ERROR CALLED 
57 065406 104401 (66125 TYPE “ERTYO2 S TYPE ' 
52 065430 013746 066102 MOV ERRNMB,-(SP) *s SAVE 5 ARI FOR TYPEOUT 
*: TYPE ERROR NUMBER 
065434 104403 TYPOS ::G0 TYPE--OC TAL ASCH 
0654 36 003 .BYTE 3 +: TYPE 3 DIGIT 
065437 000 “BYTE O ; ; SUPPRESS, PEADING ZEROS 
5% 065440 104401 066134 S$: TYPE “ERTYO3 7 TYPE 'PC=' 
54 065444 013746 (C01132 MOV $ERRPC ,=-(SP) +: SAVE SERRPC FOR TYPEQUT 
3; TYPE PROGRAM COUNTER 
065450 104403 " TYPOS ::GO TYPE=-OCTAL ASCII 
065452 006 ; .BYTE 6 “TYPE 6 DIGIT(S) 
a 065453 001 "BYTE 1 “= TYPE LEADING ZEROS 
56 ; GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0 
57 065454 005737 066102 6$: ERRNMB S AN ERROR CALLED? 
58 045460 001002 BNE 7$ ‘BR IF YES 
59 065462 000137 066074 JMP 27$ *NO=-EXIT 
61 C65466 104401 001217 7$: TYPE ,SCRLF :YES-TYPE CRLF 
62 065472 105037 066106 CLRB = BOTFLG i CLEAR BOT FLAG 
63 065476 105037 066107 CLRB CHRCNT CLEAR CHARACTER COUNTER 
64 065502 013700 066102 MOV ERRNMB , RO oIRO POINTS TO FIRST OF 
. 65 065506 122700 000177 CMPB ~—s-:- #177, RO *SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
66 065512 001003 BNE 8$ *BRANCH IF NOT 
67 065514 012700 066152 MOV #PFECH,RO “MOVE POWER FAIL ERROR CALL TABLE TO RO 
68 065520 000405 BR 9$ 
69 065522 006300 g$: ASL RO :FOUR ENTRIES IN ERROR 
70 065524 006300 ASL RO : TABLE 
71 065526 006300 ASL RO 
72 065530 062700 001572 ADD #SERRTB-8. RO 
oe 065534 011007 9$: MOV (RO) RI ar TO ERROR MESSAGE 
5 065536 001507 BEQ 19$ *BRANCH IF NO ERROR MESSAGE 
77 - TYPE THE ERROR MESSAGE 
78 065540 012102 10$: MOV (R1)+,R2 :R2=ADDRESS OF MESSAGE STRING 
79 065542 001505 BEQ 19$ =BRANCH IF END OF MESSAGE 
80 065544 010237 065712 MOV R2,18$ “LOAD ADDRESS OF STRING 
81 065550 005037 066104 CLR BOTADR “CLEAR BOT ADDRESS 
B2 065554 112203 11$: MOVB  (R2)+,R3 “END OF STRING?? 
83 065556 001454 BEO 17$ “YES! ! 
5560 122703 000015 (MPR —s #CR,RB = CARRIAGE RETURN?? 
85 065564 001003 BNE 12$ “NO! ! 
86 065566 105037 066107 CLRB —s CHRCNT “YES=CLEAR CHAR COUNT F 
87 065572 000770 BR 11$ GET a CHARACTER 
88 065574 122703 000012 12$: (MPR #*LF.LR3 *LINE FEED? 
89 065600 001765 BEQ 11$ - YES=GET NEXT CHARACTER 
90 065602 122703 000011 (MPR ss MH RB “HORIZONTAL TAB?? 
91 065606 001007 BNE 14$ *NO!! 
92 065610 105237 066107 13$: INCB — CHRCNT “ADJUST CHARACTER COUNT 
93 065614 132737 000007 066107 BITB #7, CHRCNT 
94 065622 001372 BNE 13$ 
95 065624 000407 BR 15$ 
96 065626 105237 066107 14$: INCB CHRCNT s INCREMENT CHARACTER COUNT 
97 065632 122703 000040 (MPR #’ 83 : SPACE ?? 


98 065636 001002 BNE 15$° ;NO! | 
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¢ZRMOBO RMOS/3/2 FCT 
FRROR *YPEOUT ROUTINE SEQ Uc6. 

99 065640 010237 066104 MOV R2,BOTADR 3 SAVE Pat 7 SPACE 

100 065644 122737 (00100 066107 158: CMPR #64. , CHRCNT “END OF LINE? 

161 065652 103340 BHIS 11$ NO! 

102 065654 013704 066104 MOV BOTADR,R4 =GET ADDRESS OF LAST SPACE 

103 065660 001007 BNE 16$ * BRAN ANCH IF SPACE DETECTED 

104 065662 1064401 001217 TYPE ,SCRLF ; TYPE CRLF 

105 965666 105037 066107 CLRB CHRCNT “CLEAR CHARACTER COUNT 

106 065672 013702 065712 MOV 18$,R2 sSET UP R2 FOR TESTING 

107 065676 000726 BR 11$ 

108 065700 105044 16$: CLRB = (24) sREPLACE SPACE 

109 0657 112737 177777 066106 MOVB #-1 ,BOTFLG :SET BOT FLAG 

110 065710 104401 17$: TYPE ; TYPE ERROR MESSAGE STRING 

111 065712 000000 18$: . WORD :STRING ADDRESS GOES HERE 

112 065714 105737 066106 TSTB BOTFLG s;WAS STRING TRUNCATED?? 

113 065720 001707 BEQ 10$ “NO! ! 

114 065722 104401 001217 TYPE ,SCRLF ;YES-TYPE CRLF 

115 065726 105037 066106 CLRB = BOTFLG “CLEAR BOT FLAG 

116 065732 105037 066107 CLRB —- CHRCNT “CLEAR CHARACTER COUNT 

117 065736 013702 066104 MOV BOTADR ,R2 :SETUP R2 FOR TESTING 

118 065742 010237 065712 MOV R2,18$ “SETUP 18% FOR TYPING 

119 065746 112742 000040 MOVB id e (Re) “RESTORE SPACE 

120 065752 105722 TSTB (R2)+ “RESTORE R2 

‘$3 065754 000677 BR 11$ TYPE REST OF STRING 

123 : TYPE ERROR HEADER AND ERROR DATA 

124 065756 016001 000002 19$: | MOV 2(RO) ,R1 -R1 POINTS TO ERROR HEADER TABLE 

125 065762 001444 BEQ 27$ * BRANCH IF NO HEADER 

126 065764 104401 001217 TYPE “$CRLF : (ASSUME NO DATA) 

127 065770 016002 9000004 MOV 4(RO) ,R2 :R2 POINTS TO DATA ADDRESS TABLE 

128 065774 016003 000006 MOV 6(RO) .R3 *R3 POINTS TO FORMAT TABLE 

129 066000 012137 066010 20$: MOV (R1)+.21$ *PUT HEADER ADDRESS FOR TYPE 

130 066004 001433 BEQ 27S ;BRANCH IF END OF HEADERS 

131 ; (ASSUME END OF DATA) 

132 066006 104401 TYPE 

133 066010 000000 21$: . WORD 0 :HEADER ADDRESS GOES HERE 

134 066012 104401 001217 TYPE ,SCRLF 

135 066016 005702 TST R2 =DATA WITH HEADER?? 

136 066020 001767 BEQ.-—s-_-20$ NO! ! 

137 066022 012204 MOV (R2)+,R4 :R4& POINTS TO DATA ADDRESS 

138 066024 012305 MOV (R3)+,R5 “R5 POINTS TO FORMAT 

139 066026 105725 22$: TSTB. ss (R55) + “WHAT KIND OF DATA?? 

140 066030 100407 BM] 24$ “BINARY 

141 066032 001403 BEQ 23$ “OC TAL 

142 066034 013446 MOV a(R4)+,-(SP) “DECIMAL 

143 066036 104405 TYPDS 

144 066040 000405 BR 25$ 

145 066042 013446 23$: MOV a(R4)+,-<SP) 

146 066044 104402 TYPOC 

147 066046 000402 25$ 

148 066050 013446 243: MOV @(R4)+,-(SP) 

149 066052 104406 | TYPBN 

150 066054 005714 253: TST (R4) MORE DATA?? 

151 066056 001403 BEQ 26$ =NO! 

152 066060 104401 066142 TYPE ERTYO4 *YES=TYPE 2 SPACES 

153 066064 000760 BR 22$ “AND CONTINUE 

154 066066 104401 001217 268: TYPE “$CRLF “TYPE ONE BLANK LINE 


155 066072 000742 BR 20$ “BEFORE NEXT HEADER 


“ZRMOBO 8M05/3/2 FCTNL TST $3 


FRROR TYPEOUT ROUTINE 


oO 
NM 


wat ed ed etd — 2 


—) 
ss 
3} 
~ AVERAS G& 


S B8EE8F F 


SSBVS ARRAN 2SSHRVGE 
3 
FR 


ee eee 


Oo OO 
N— 
Nm 
™~ 
oO 


a ae eee 


a 


122 126 

040 124 

040 105 

040 120 

040 000 

055 040 
066250 066266 
000000 

117 127 
000000 

120 125 
000000 

000 


ee ee 


27%: 


TSTNMB: . 
ERRNMB: . 
BOTADR: . 
BOTFLG: 
CHRCNT: 


ERTYOO: 


PFECH2: 


PFECHS: 
PFECH4: 


RESREG 
RTS 


cS 
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PC 

0 ; TEST NUMBER 

0 ; ERROR NUMBER 

0 sBEGINNING OF TEXT ADDRESS 
0 :BOT FLAG 

0 ; CHARACTER COUNT 
adrVaa 

@, TEST#a 

a, ERR#a , 

a, PC=a 

a @ 

a-a 


PFECH1,PFECH2,PFECHS,PFECH4 ; WORDS DEF INING TABLES BELOW 


o* 
-ASC1Z 
« EN 
-+4,0 

-ASCIZ 
EVEN 

. WORD 

oe 


ee em ne ee ee ree 


?7POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 


?CPUERREG? 


CPSAVE ,0 
0,0 


ee os 


~Z7RMOBO RMO5/3/2 FCTINL TST $ 
"TY INPUT ROUTINE 


q 
' 


000000 
000000 
000000 
066507 


005037 


117746 


022737 
001004 
104401 


066500 
066306 
0663502 
066360 


000200 
112612 
000100 


112576 
177600 
600021 


000003 


067506 
066310 


067550 
000007 


0007 76 


000001 
001212 


is 
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.SBTTL TTY INPUT ROUTINE 


fF RAAAAARAAAAAAARAAAAAAAAAAAAAAAAARAAHAARARAAAAKAKAHARARAAAA AAA Ae 


; .WORD Q 
0 


= 
O 
aD 
C0 
—© 


$TKQEND=. 
EVEN 


:*TK INITIALIZE ROUTINE 


3 NUMBER OF ITEMS IN QUEUE 
3, INPUT POINTER 

: ;OUTPUT POINTER 

si TTY KEYBOARD QUEUE 


s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


:CLEAR COUNT OF ITEMS IN QUEUE 
: IMOVE THE STARTING ADDRESS OF THE 
QUEUE INTO THE INPUT & OUTPUT POINTERS. 
:3 INITIALIZE THE KEYBOARD VECTOR 
73° BR’ LEVEL 4 
3;CLEAR DONE FLAG 
: ;ENABLE TTY KEYBOARD INTERRUPT 
: ;RETURN TO CALLER 


TTY KEYBOARD INTERRUPT 


THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


:*IF THE CHARACTER IS A ‘‘CONTROL~C'' (*C) STKINT IS CALLED AND 
; *UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C’* RESTART ADDRESS (SHUT2) 


s*CALL: 
:* JSR PC. $TKINT 
:* RE TURN 
STKINT: CLR STKCNT 
066302 MOV #STKOSRT,STKQIN 
066304 MOV STKQIN, $TKQOUT 
000060 MOV #STKSRV ,AATKVEC 
000062 MOV #200, ,@#TKVEC+2 
TST a$TKB 
112602 MOV #100,a$TKS 
RTS PC 
:*7K SERVICE ROUTINE 
>*THIS ROUTINE WILL SERVICE THE 
:*BY READING 
s*]7T IN THE QUEUE. 
STKSRV: MOVB a$TKB,- (SP) 
BIC #*C177, (SP) 
CMP (SP) ,#$XON 
BNE 30$ 
TST (SP)+ 
RT] 
30$: 
CMP (SP) #3 
BNE 1$ 
TYPE ~SCNTLC 
JSR PC STKINT 
TST (SP) + 
JMP SHUT 2 
1$ CMP (SP) #7 
BNE 2$ 
001154 CMP #SWREG, SWR 
BEQ 6$ 
066300 CMP #1, $TKCNT 
BNE 3$ 
TYPE , SBELL 


3;PICKUP THE CHARACTER 
i 8 THE JUNK 


CLEAN RANDOM MON OFF STACK 
URN 


ie us HIE NO c? 


se NO 
3:7 TYPE A CONTROL-C (*C) 


mA ey C RESTART 
S ITA = G? 


CH | 
“1S SOFT=SWR SELECTED? 
160 TO SWR CHANGE 


21S THE QUEUE FULL? 
;;BRANCH IF NO 
>sRING THE TTY BELL 


SEG Uc6Y¥ 


eee ee 
re See neE Geenennnenne — - - - 


—— SO, ET, NE LL LL SL 


K 5 
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TTY INPUT ROUT! SEQ 0270 
066460 005726 TST (SP) + :;CLEAN CHARACTER OFF OF STACK 
066462 000451 BR 5$ “EXIT 
066464 021627 000023 3$: CMP (SP) ,#23 *;1S IT A CONTROL-S? 

066470 001021 BNE 32$ : ;BRANCH IF NO 
066472 005077 112462 CLR a$stKs *:DISABLE TTY KEYBOARD INTERRUPTS 
066476 005726 TST (SP) + *=CLEAN CHAR OFF STACK 
066500 105777 112454 31$: TSTB. =—so AS TKS **WAIT FOR AC 
066504 100375 BPL 31$ ;;LOOP UNTIL ITS THERE 
066506 117746 112450 MOVB  @$TKB,~(SP) i;GET THE CHARACTER 
066512 042716 177600 BIC 40177, (SP) IT 7-BIT ASCII 
066516 022627 000021 CMP (SP) +, #21 2548 IT A CONTROL-0? 
066522 001366 BNE 31$ :BRANCH IF NO 
066524 012777 000100 112426 MOV #100,a$TKS : 7REENABLE TTY KEYBOARD INTERRUPTS 
966532 000002 RTI : RETURN 
066534 005237 066300 32S: INC STKCNT *=COUNT THIS CHARACTER 
066540 021627 000140 CMP (SP) #140 ::1S IT UPPER CASE? 
066544 002405 BLT 4 > ;BRANCH IF YES 
066546 021627 000175 CMP (SP) #175 -:3S IT A SPECIAL CHAR? 
066552 003002 BGT 4$ + :BRANCH IF YES 
666554 042716 000040 BIC #40, (SP) ;:MAKE IT UPPER CASE 
066560 112677 177516 4$: MOVB (SP)+,a$TKQIN ;:AND PUT IT IN QUEUE 
066564 005237 066302 INC S$TKQIN :UPDATE THE POINTER 
066570 023727 066302 066307 CMP $TKQIN, ASTKQEND G0 OFF THE END? 
066576 001003 BNE $ : ;BRANCH IF NO 

00 012737 066306 066302 MOV #STKQSRT,STKQIN ;;RESET THE POINTER 
066606 000002 5$: RTI : sRETURN 


It Ii iii tititiititiiiiiiiiiiiii iii iii iii iti 
« &SOF TWARE SWITCH Sap CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

>*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 


066610 022737 000176 001154 $CKSWR: CMP ASWREG, SWR ::1S THE SOFT-SWR SELECTED 
066616 001124 BNE 15$ :3EXIT IF NOT 

066620 105777 112334 TSTB ~=s-_ aSTKS *1S A CHAR WAITING? 

066624 100121 BPL 15$ *:JF NOT, EXIT 

066626 117746 112330 MOVB  a$TKB,-(SP) iiY 

066632 042716 177600 BIC #°C177, (SP) >:MAKE IT 7-BIT ASCII 

066636 021627 000007 CMP (SP) #7 i218 IT A CONTROL-G? 

066642 001300 BNE 2$ STF NOT. | PUT IT IN THE TTY QUEUE 


EERE ERE EEE EERE RRR RARER REAR REPRE ERE ERE EE 
* &CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 

7 *ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
>*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


066644 123727 001150 000001 68: CMPB $AUTOB , #1 + ZARE WE 7 ae IN AUTO-MODE ? 
066652 001674 BEQ 2$ ; BRANCH IF 

066654 005726 TST (SP) + ; CLEAR CONTROL ~6 OFF STACK 
066656 004737 066310 JSR PC, STKINT : FLUSH ‘a Ap. INPUT QUEUE 
066662 005077 112272 CLR a$TKS :DISABLE TTY KEYBOARD INTERRUPTS 
066666 112737 000001 001151 MOVB #1,$INTAG :7SET INTERRUP MODE INDICATOR 
066674 104401 0675206 TYPE -SCNTLG :sECHO THE CONTROL-G (*G) 

066700 104401 067525 $GTSWR: TYPE , SMSWR +s TYPE CURRENT CONTENTS 

066704 013746 000176 MOV SWREG , = (SP) :SAVE SWREG FOR TYPEQUT 

066710 104402 TYPOC ::GO0 TYPE=-OCTAL ASCIICALL DIGITS) 


LS OS EE Se 9 00 Ee Sr rr, er tree eee ee ee ee ee —- ——— — ——- + - 


CZRMOBO RMO5/3/2 FCTNL 
TTY INPUT ROUTINE 


117746 
042716 


021627 


TST 3 


067536 
112232 
112226 
177600 
000003 
067506 
000006 
001151 
000190 
067550 
000025 
067513 
000006 


000002 
177776 
001216 
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000001 
112164 


112112 


000001 
112070 


19$: 


7$: 


8$: 


9$: 


20$: 


10$: 


17$: 


18$: 


TYPE 
CLR 


CLR 
TSTB 
BPL 


TYPE 


BR 
-DSABL LSB 


, SMNF Ww 

=(SP) 

-(SP) 

agsTKs 

7$ 

a$TKB,-(SP) 

#*C177, (SP) 
(S?) #3 

9$ 

,$CNTLC 

#6, SP 
SINTAG, #1 
8$ 

#100,a$TKS 
SHUT 2 


(SP) ,#25 
10$ 


1 
#100,a$TKS 


PC,STYPEC 
(SP) ,#60 


18$ 

(SP) ,4#67 
18$ 

#60, (SP)+ 
2(SP) 


2 (SP) 
-2(SP), (SP) 
7$ 


SOQUES 
20$ 


3 zPROMPT FOR NEW SWR 
;;CLEAR COUNTER 

3; THE NEW SWR 

th a THERE ? 


;1F NOT TRY AGAIN 


:7PICK UP CHA 
;sMAKE IT PoBIT ASCII 


::1S IT A_CONTROL-C? 
; ;BRANCH IF NOT 
:-YES, ECHO CONTROL-C (“C) 

77 CLEAN UP STACK 

;;REENABLE TTY KEYBOARD INTERRUPTS? 


se CH IF NO 
;;ALLOW TTY KEYBOARD INTERRUPTS 
;sCONTROL=C RESTART 


315 IT A CONTROL -U? 
:BRANCH IF NOT 
i EYES ECHO CONTROL-U (“UD 
; IGNORE PREVIOUS INPUT 
::LET'S TRY IT AGAIN 


e315 IT A <CR>? 
CH IF 


NO 
7;YES, IS IT THE FIRST CHAR? 
CH IF YES 

7 SAVE NEW SWR 

7; CLEAR UP STACK 

: ECHO <CR> AND <LF> 

hh oe bis KBD INTERRUPTS? 


NO 
7 ;RE-ENABLE TTY KBD INTERRUPTS 


; sRETURN 
72ECHO CHAR 
ze . v7 


> ;BRANCH IF YES 
; ;BRANCH IF YES 


: ~OFF ASCII] 
::1S THIS THE FIRST CHAR 
; BRANCH IF YES 

::NO, SHIFT PRESENT 

os CHAR OVER TO MAKE 

: ROOM FOR NEW ONE. 

> :KEEP COUNT OF CHAR 


*:TYPE ?<CR><LF> 
=:SIMULATE CONTROL-U 


SS ARAARARAARERERARAAAEEAEEAAERAERARERARARAAAAAAHARARERKRERKARR EKER 


SEO U27" 
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TTY INPUT ROUTINE SEQ 027¢ 


peor, haat WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ee oe - 


> *CALL 
;* RDCHR 3i3GET A CHARACTER FROM THE QUEUE 
:* RETURN HERE 3; CHARACTER IS ON THE STACK 
se iiWITH PARITY BIT STRIPPED OFF 
967152 011646 SRDCHR: MOV (SP) ,=(SP) :;PUSH DOWN THE PC AND 
067154 016666 000004 000002 MOV 4(SP) ,2(SP) :; THE PS 
067162 005066 000004 CLR 4(SP) :;GET READY FOR A CHARACTER 
067166 5046 CLR -(SP) : PUT NEW PS ON STACK 
067170 012746 067176 MOV #64$,-(SP) 7;PUT NEW PC ON STACK 
067174 RT] 3;POP NEW PC AND PS 
067176 64$: 
067176 005737 066300 1$: TST STKCNT :z;WAIT ON A CHARACTER 
067202 001775 BEQ 1$ 
7 005337 6300 DEC STKCNT :DECREMENT THE COUNTER 
067210 117766 177070 000004 MO @$TKQOUT ,4 (SP) GET ONE CHARACTER 
067216 005237 066304 iNC $TKQOUT ; UPDATE THE POINTER 
067222 023727 0663 066307 CMP STKOOUT, #STKQEND 3 EDID IT GO OFF OF THE END? 
067230 1003 BNE 2$ CH IF NO 
067232 012737 066306 066304 MOV A$TKQSRT, $TKQOUT’ 7 ERESET THE POINTER 
067240 000002 2$: RTI > sRETURN 
SS ERA AAA KAEERAEA AAA AAAEAAERARARKEAARREAAAEAAKRERERE ED 
Debs ROUTINE WILL INPUT A STRING FROM THE TTY 
s*CALL: 
;* RDLIN zz: INPUT A STRING FROM THE TTY 
7* RETURN HERE ; :ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
;* 7, TERMINATOR WILL BE A BYTE OF ALL O°S 
067242 010346 $RDLIN: MOV R3,-(SP) : SAVE R3 
067244 5046 LR -(SP) ;;CLEAR THE RUBOUT KEY 
067246 012703 067476 1$: MOV #STTYIN,RS 3:GET ADDRESS 
067252 022703 067506 2$: CMP A#STTYINeS. R35 ; sBUFFER FULL? 
067256 101456 BLOS 4$ :;BR IF YES 
7260 104411 RDCHR :GO READ ONE CHARACTER FROM THE TTY 
067262 112613 MOVB (SP) +, (R3) < GET ny 4 
067264 122713 000177 10$ CMPB #177, (R3) ::IS ITAR 
067270 001022 BNE 5$ ;;BR IF NO 
067272 005716 TST (SP) z248 THIS THE FIRST RUBOUT? 
067274 1007 BNE 6$ 7;BR IF NO 
067276 112737 000134 067474 MOVB A°\,9$ >: TYPE A BACK SLASH 
7 104401 06747 TYPE 2 
067310 012716 177777 MOV #-1, (SP) ::;SET THE RUBOUT KEY 
067314 530 6$: DEC eS > ;BACKUP BY ONE 
067316 020327 067476 CMP R3,ASTTYIN EP ge EMPTY? 
067322 1034 BLO 4 :;;BR IF YES 
067324 111337 067474 MOVB (R3),9$% : SETUP TO TYPEOUT THE DELETED CHAR. 
73 104401 067474 TYPE 9S os TYPE 
067334 000746 BR $ ::GO READ ANOTHER CHAR. 
067336 005716 5$ TST (SP) : :RUBOUT KEY SET? 
067340 1406 BEQ 7 ::BR IF NO 
067342 112737 000134 067474 MOVB A°\ 9S >: TYPE A BACK SLASH 
067350 104401 067474 TYPE 9 
067354 005016 CLR (SP) ::; CLEAR THE RUBOUT KEY 
067356 122713 000025 7$: CMPB #25, (R35) :;1S CHARACTER A CTRL U? 
067362 100 BNE $ :;BR IF NO 


we er ee + ee + ee ee oe eee. 


_—s = - 


—_— eee 
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ee ee = ee ee ee 


9 See RMOS/3/2 FCINL TST 3 
NPUT ROUTINE SEQ 0273 
7 067513 ,SCNTLU zz TYPE A CONTROL ‘U"' 
067370 ::GO START OVER 
067372 006022 &$: #22, (R3) 31S CHARACTER A ‘“*R*‘? 
067376 3$ : CH IF 
74 (R3) 73 CLEAR THE CHARACTER 
067402 001217 , SCRLF : TYPE A “‘CR'' & ‘LF' 
74 067476 ~STTYIN >: TYPE THE INPUT STRING 
067412 at PICKUP , ANOTHER CHACTER 
067414 001216 4$: , SQUES YPE A 
067420 1$ at” Bs THE BUFFER AND LOOP 
067422 067474 3$: (R3) ,9$ ECHO THE CHARACTER 
067426 067474 TYPE 9S 
067432 000015 CMPB #15, (R3)+ : 3 CHECK FOR RETURN 
067436 BNE 2$ LOOP IF NOT RETURN 
744 177777 CLRB -1(R3) =: CLEAR RETURN (THE 15) 
067444 001220 TYPE ,$SLF sz TYPE A LINE FEED 
067450 TST (SP) + 3: CLEAN RUBOUT KEY FROM THE STACK 
067452 MOV (SP)+,R3 > RESTORE R3 
745 MOV (SP) ,-(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
067456 0C0004 O 2 MOV 4(SP),2(SP) 2° FIRST ASCII CHARACTER ON IT 
74 067476 000004 MOV #STTYIN,4(SP) 
067472 RTI : SRETURN 
067474 000 ’ 9$: -BYTE 0 ;; STORAGE FOR ASCII CHAR. TO TYPE 
067475 000 -BYTE 0O : TERMINATOR 
067476 S$TTYIN: .BLKB 8. 7 RESERVE 8 -_ FOR TTY INPUT 
067506 136 103 015 $CNTILC: .ASCIZ /*C/<15><12> : ¢ CONTROL 
067513 136 125 015 $CNTLU: .ASCIZ /*U/<15><12> : CONTROL Hy 
067520 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> - = CONTROL — 
Re ceee 015 012 123 $MSWR: .ASCIZ <15><12>/SWR = / 
067536 040 040 116 SMNEW: ASCIZ / NEW = 
; -EVEN 
3 067550 012737 177777 001326 SHUT2: MOV #-1,CiLFG :SET THE CONTROL-C FLAG 
4 067556 105737 001116 TSTB STSTNM :DOING ANY TESTS ? 
5 067562 001002 BNE 1$ “BR IF YES 
6 067564 000137 037262 JMP SHUT :NO=-RESPOND TO “C 
7 067570 000002 1$: RT] :EXIT FROM INTERRUPT 


‘@meeeamees SS 
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AL NUMBER FROM THE TTY SEQ 0 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


2 “RRR eeeeeaaetaeaeaekenknaaneaeenanateeaantenaeneeanese 


; *THIS ~— WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
*CHANGE IT TO BINARY. 


<eCALL: 
:* RDOCT + SREAD OCTAL NUMBER 
:* RETURN HERE 37 LOW ER BITS ARE ON TOP OF THE STACK 
3® ;zHIGH ORDER BITS ARE 'N $HIOCT 
067572 011646 SRDOCT: MOV (SP) ,-(SP) ay ot SPACE FOR THE 
067574 016666 000004 90000C? MOV 4(SP),2(SP) T NUMBER 
067602 010046 MOV RO,-(SP) : PUSH RO ON STACK 
067604 010146 MOV R1,-(SP) :zPUSH R1 ON STACK 
067606 010246 MOV R2,-(SP) 7ZPUSH R2 ON STACK 
067610 104412 i$: RDLIN ; sREAD AN ASCIZ LINE 
067612 012600 MOV (SP)+,RO :GET ADDRESS OF 1ST CHARACTER 
067614 005001 CLR R1 >: CLEAR DATA WORD 
067616 005002 : CLR R2 
C67620 112046 23: MOVB (RO) +,-(SP) :zPICKUP THIS CHARACTER 
067622 001412 BEQ 3$ zz1F ZERO GET OuT 
067624 006301 ASL R1 :3%*2 
067626 006102 ROL R2 
067630 006301 ASL R1 27%h 
067632 006102 ROL R2 
067634 006301 ASL R1 77*8 
067636 006102 ROL R2 
067640 042716 177770 BIC #*C7, (SP) :zSTRIP THE ASCII JUNK 
067644 062601 ADD (SP)+,R1 - «ADD IN THIS DIGIT 
067646 000764 BR 2$ LOOP 
067650 005726 3$: TST (SP) + > = CLEAN TERMINATOR FROM STACK 
067652 010166 000012 MOV R1,12(SP) >;SAVE THE RESULT 
067656 010237 067672 MOV R2,$HIOCT 
067662 012602 MOV (SP)+,R2 :zPOP STACK INTO R2 
067664 012601 MOV (SP)+,R1 _ gePOP STACK INTO RI 
067666 012600 ? | MOV (SP)+,RO ‘oo STACK INTC RO 
067670 O00002 ~~ RT] BRE TURN 
067672 000000 $HIOCT: WORD 0 SgHIGH ORDER BITS GO HERE 


TT 
— a re ee ae ee mm ee 


CZ7RMOBO RMOS/3/2 FCTNL TST 3 
TRAP DECODER 


011646 
016666 
000002 


000002 
000020 
067712 


000002 


067746 


000004 000002 


. SBTTL 
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TRAP DECODER 


fF A ARAKAAARAERAAAAAAAAAEEEAAAHAAAAAAAAAAAAAHRARAAAAAERERAARARAAAEE 


:* THIS ROUTINE WILL 
;*AND USE I 


:*GO TO THAT ROUTINE. 


STRAP: 


1$: 


MOV 2(SP) ,=(SP) 
BIC #29, (SP) 
MOV #1$,-(SP) 


MOV RO,-(SP) 
MOV 2(SP) ,RO 
(RO) 


TST - 

MOVB (RO) ,RO 

ASL R 

MOV $TRPAD (RO) ,RO 
RTS RO 


PICKUP THE LOWER BYTE OF THE 
T TO INDEX THROUGH THE TRAP 
;*OF THE DESIRED ROUTINE. 


""TRAP"’ INSTRUCTION 
TABLE FOR THE STARTING ADDRESS 


THEN USING THE ADDRESS OBTAINED IT WILL 


+ ¢ ASSUME THE STATUS OF 

ii THE CALLER--DO NOT ALLOW 

3; _T-BIT TRAPS 

ah NEW STATUS 

+ 3GET TRAP ADDRESS 

oe KUP BY 2 

+ GET RIGHT BYTE OF TRAP 
+ ¢POSITION FOR INDEXING 
NDEX TO TABLE 

560 TO ROUTINE 


3:THIS 1S USE TO HANDLE THE ‘'GETPRI'’ MACRO 


$TRAP2: 


- SBTTL 


MOV (SP) ,-(SP) 
ort 4(SP) ,2¢(SP) 


TRAP TABLE 


7;MOVE THE PC DOWN 
:zMOVE THE PSW DOWN 
;sRESTORE THE PSW 


>*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE ‘TRAP’ INSTRUCTION. 


$TRPAD: . 


7; CALL=TYPDS 
7; CALL=TYPBN 


; - CALL=GTSWR 


3; CALL=CKSWR 
3; CALL=RDCHR 
‘eate RDLIN 
SRDOCT : CALL=RDOCT 
SSAVREG : = CALL= SAVREG 
SRESREG >: CALL= RESREG 


TRAP+1 (104401) 
TRAP+2( 104402) 
TRAP+3(104403) 
TRAP+4 (104404) 
TRAP+5 (104405) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL? 
TYPE DECIMAL NUMBER (WITH SIGN) 
TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 


TRAP+7(104407) GET SOFT-SWR SETTING 
TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWR 


TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
mht BBS iby fs TTY TYPEIN STRING ROUTINE 
RAP+13(104413) READ AN OCTAL NUMBER FROM TTY 
TRAPS 14 (104412) SAVE RO-R5 ROUTINE 
TRAP+15(104415) RESTORE RO-R5 ROUTINE 


i 


070062 
0066 


070150 


C 7RMOBO yg h FCTNL TST 3 
POWER DOWN AND UP ROUTINES 


070142 
000340 


111116 
070146 
070054 


070142 


070146 
111050 


070002 
000340 


O12 


SS ee SSA se SS EE a at ome 
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000024 
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.SBTTL POWER DOWN AND UP ROUTINES 


(PRR RRSRASRRARSRARARARRRRRRRRRRR RRR RR RR RR RRR RRR RA RR RR RRR RRR RRR R EAE 


“POWER DOWN ROUTINE 
$PWRDN: MOV 


MSILLUP ,Q@MPWRVEC ; 
#340, a#PWRVFC+2 2éP 
) +3 PUSH RO ON STACK 


ft FOR FAST UP 
R1I0:7 


R1,-(SP) zPUSH R1 ON STACK 
R2,-(SP) ‘PUSH R2 ON STACK 
R3,-(SP) 33 H ON STACK 
R4,-(SP) : PUSH R4 ON STACK 
R5,~-(SP) zPUSH RS ON STACK 
@SWR,~ (SP) ; ;PUSH @SWR ON STACK 
SP, SSAVR6 szSAVE SP 

#SPWRUP ,@APWRVEC :;SET UP VECTOR 

72 7 HANG UP 


SEERA CRAKEAR AAARARRAERRAAHAKKERAEKAEEARREARHERAEREEE HS 


1$: 


SPWRMG : 
SILLUP: 


“POWER UP ROUTINE 
$PWRUP : 


V 


SSAVR6: 0 
-ASCIZ <15><12>’ POWER’ 
EVEN 


$SPOWER: 


ASILLUP ,@M#PWRVEC ;;SET FOR FAST DOWN 
$SAVR6, SP ;3GeT SP 


SSAVR6 :z;WAIT LOOP FOR THE TTY 
SSAVR6 sz;WAIT FOR THE INC 

1$ :;0F WORD 

(SP)+,@SWR 7zPOP STACK INTO @SWR 
(SP)+,R5 :zPOP STACK INTO R5 
(SP)+,R4 7zPOP STACK INTO R4 
(SP)+,R3 :;POP STACK INTO R35 
(SP)+,R2 : POP STACK INTO R2 
(SP)+,R1 :;POP STACK INTO R1 


Pe STACK INTO RO 
#SPWRON,@#PWRVEC ::SET UP THE POWER DOWN VECTOR 
#340, aMPWRVEC+2 ;:PRIO:7 

sREPORT THE POWER FAILURE 
SPOWER :;POWER FAIL MESSAGE POINTER 


3: THE POWER UP SEQUENCE WAS STARTED 
sme >; BEFORE THE POWER DOWN WAS COMPLETE 
;3PUT THE SP HERE 


SEQ 0276 


TE see 
See 


LN 
Oe LL 


. © 
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_ APT COMMUNICATIONS ROUTINE SEQ 0277 


~SBTTL APT COMMUNICATIONS ROUTINE 


SERRA RARAEAAAAAAAAAAEEAAARAAAAAAEARRAHEHEAEAHRHRH EEA AHHH * warn eane 


070160 112737 000001 070424 $ATY1: MOVB  #1,$FFLG ::TO REPORT FATAL ERROR 
070166 112737 000001 0704622 $ATY3: MOVB #41,$MFLG *:T0 TYPE A MESSAGE 
070174 000403 BR SATYC 
070176 112737 000001 070424 SATA: MOVB  #1,$FFLG ::TO ONLY REPORT FATAL ERROR 
070206 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
070206 010146 MOV R1,-(SP) **PUSH R1 ON STACK 
070210 105737 070422 TSTB = SMFLG ;;SHOULD TYPE A MESSAGE? 
070214 001450 BEQ 5$ NOT: BR 
070216 122737 000001 001242 CMPR = WAPTENV,, SENV ; ;OPERAT ING UNDER APT? 
070224 001031 BNE -IF NOT: BR 
070226 132737 000100 001243 BITB § #APTSPOOL,$ENVM : SHOULD SPOOL MESSAGES? 
070234 001425 BEQ 3$ NOT: BR 
070236 017600 000004 MOV a4 (SP) . RO + =GET MESSAGE ADDR. 
070242 062766 000002 000004 ADD #2.4 > ;BUMP RETURN ADDR. 
670250 005737 001222 1$: 7ST SAC YPE : 3 SEE IF DONE W/ LAST XMISSION? 
670254 001375 BNE 1$ “IF NOT: WAIT 
070256 010037 001236 MOV RO, $MSGAD : PUT ADDR IN MAILBOX 
070262 105720 2$: TSTB (RO) + FIND END OF MESSAGE 
070264 001376 BNE 2$ 
070266 163700 001236 SUB $MSGAD , RO ::SUB START OF MESSAGE 
070272 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
070274 010037 001240 MOV RO, $MSGLGT -:PUT LENGTH IN MAILBOX 
070300 012737 000004 001222 MOV #4, S$MSGTYPE >: TELL APT TO TAKE MSG. 
070306 000413 BR 
070310 017637 000004 070334 3$: MOV a4 (SP) ,4$ ::PUT MSG ADDR IN JSR LINKAGE 
070316 062766 000002 000004 ADD #2,4(SP) RETURN ADDRESS 
070324 013746 177776 MOV 177776, (SP) PUSH 199776 ON STACK 
070330 004737 063520 JSR PC $TYPE >=CALL TYPE MACRO 
070334 000000 4$: WORD 0 
070336 S$: 
070336 105737 070424 10$: TSTB = SFFLG ; SHOULD REPORT FATAL ERROR? 
070342 001416 BEQ 12$ -IF NOT: BR 
070344 005737 001242 TST SENV ; ; RUNNING UNDER APT? 
070350 001413 BEQ 12$ -IF NOT: BR 
070352 005737 001222 11$: TST SMSGTYPE = =F INISHED LAST MESSAGE? 
070356 001375 BNE 11$ -:7F NOT: WAIT 
070360 017637 000004 001224 MOV @4(SP),SFATAL ;;GET ERROR # 
070366 062766 000002 000004 ADD #2,4(SP) =BUMP RETURN ADDR. 
070374 005237 001222 INC $MSGTYPE >: TELL APT TO TAKE ERROR 
070400 105037 070424 12$: CLRB = SFFLG *>CLEAR FATAL FLAG 
070404 105037 070423 CLRB ~=s_« SLFLG *:CLEAR LOG FLAG 
070410 105037 070422 (LRB $MFLG -=CLEAR MESSAGE FLAG 
070414 012601 MOV (SP)+,R1 -:POP STACK INTO R1 
070416 012600 MOV (SP) +,RO ; POP STACK INTO RO 
070420 000207 RTS PC + RETURN 
070422 000 $MFLG: .BYTE 0 > *MESSG. FLAG 
070423 000 $LFLG: .RBYTE 0 *:LOG FLAG 
070424 000 $FFLG: -BYTE 0 -=FATAL FLAG 
-EVEN 

000200 APTSIZE = 200 

000001 APTENV = 001 

000100 APTSPOOL= 100 

000040 APTCSUP = 040 
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ONSOLE MESSAGES SEQ U275 
5 -SBTTL CONSOLE MESSAGES 
= 070426 200 103 101 SCTMSG: .ASCIZ <CRLF>@CANNOT RECOVER THE BAD SECTOR FILES ON THIS DEVICE@ 
4 070512 0? 000 EQUALS: .ASCIZ a=a 
5 970514 101 114 114 ALL: ASCIZ @ALL@<CRLF> 
6 070521 049 077 040 QUES: eASCIZ 079 
7 070525 054 040 000 COMMA: .ASCIZ a, a 
8 070530 200 124 117 MSHELP: .ASCII] <CRLF>@TO ENSURE THAT NO BAD HEADERS ARE LEFT ON THE DISK@ 
9 070616 200 120 101 eASCII <CRLF>@PACK, THIS PROGRAM SHOULD BE HALTED BY TYPING A (*C)@a 
10 070704 200 103 117 ASCII <CRLF >@CONTROL C. AS A RESULT, THE PROGRAM WILL BE HALTED@ 
11 070772 127 110 -ASCII <CRLF>@WHEN THE DRIVE UNDER TEST HAS COMPLETED TESTING. @<CRLF > 
12 071054 200 124 131 eASCIZ <CRLF>@TYPE HELP TEXT (L) N? 9 
13 071105 122 115 CNSLO1: .ASCIZ <CRLF>@RMCS1=a 
14 071115 040 114 111 CNSLO2: .ASCIZ @ LIMITS - LO= 160000, HI= 17XXxXxX@<CRLF > 
15 071157 122 115 126 CNSLO3: .ASCIZ @RMVEC=a 
16 071166 040 114 117 CNSLO4: .ASCIZ* @ LIMITS - LO= 0, HI= 1000@<CRLF><LF> 
17 07122 200 124 131 CNSLO7: .ASCII <CRLF>@TYPE ‘‘A*’ TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a 
18 071307 200 101 116 eASCIZ <CRLF>@AND TERMINATE INPUT WITH A CARRIAGE RETURN.G 
19 071364 200 CNSLO8: .ASCII <CRLF> 
20 671365 040 077 111 CNSLO9: .ASCIZ @ ?ILLEGAL INPUT@<CRLF> 
21 071406 200 104 122 MSDRVS: .ASCIZ <CRLF>/DRIVE(S): / 
22 071422 104 122 1711 MSGDRV: .ASCIZ /DRIVE/ 
23 071430 200 125 116 SYSTAT: .ASCIZ <CRLF>/UNIT STATUS:/ 
24 071446 122 115 060 $RMO2: .ASCiZ /RMO2/ 
25 071453 i22 115 060 $RMO3: .ASCIZ /RMO3/ 
26 071460 122 715 060 $RMOS: .ASCIZ /RMOS/ 
27 071465 040 116 117 NOTRM: .ASCIZ @ NOT AN RMO05S/3/2a 
28 071506 040 114 117 LODEV: .ASCIZ / LOAD DEVICE/ 
23 071523 040 116 117 NOTPRS: .ASCIZ / NOT PRESENT/ 
30 071540 040 116 117 NOTAVL: .ASCIZ / NOT AVAILABLE/ 
31 071557 940 117 106 UNTOFF: .ASCIZ / OFFLINE/ 
32 071570 117 116 TON: .ASCIZ / ONLINE/ 
33 071600 200 104 122 DRIVES: .ASCIZ <CRLF>/DRIVE(S) TO BE TESTED/ 
071627 116 117 116 : eASCIZ /NONE/ 
35 071634 * 116 000 N -ASCIZ /N/ 
071636 131 000 Y eASCIZ /Y/ 
37 071640 040 BLNKS4: .ASCII / / 
38 071641 040 BLNKS3: .ASCII / / 
39 071642 040 BLNKS2: .ASCII / / 
40 071643 040 000 BLNKS1: .ASCIZ / / 


4) EVEN 
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~SBTTL FUNCTION CODE TABLE 


:THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
SEACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA ~- BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
A SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE, 
5 IS ove he INDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 
THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
S NOT EXPECTED AS A RESULT OF THE COMMAND. 


WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OP] - BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE - BIT 11 °S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
VIF WRITE ERRORS ARE LNABLED DURING THE EXECUTION oe THAT COMMAND . 
:THE WRITE ERRORS WHICH ARE ENABLED ARE ‘WLE’', ‘WCF’’, ‘DPE’, "UPE’’. 


IAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
“IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
TIF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 
:COMMAND. THE ERRORS — BY THIS BIT ARE ‘’TRE’’, "DLT’*, ‘NEM’, 
:'MXF'', “LBT'', AND ‘'AOE" 
; BIT 08 IS NOT USED. 

HCE - BIT O07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
VIF HEADER ERRORS ARE ENABLED DURING EXECUTION OF THAT COMMAND. 
sHEADER ERRORS INCLUDE ‘'HCRC'', "HCE’’, ‘FER’, AND 'BSE"’. 

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
LIF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION of THAT 
:COMMAND. THESE ERRORS INCLUDE 'MDPE'’, "DCK'', AND ‘CH’ 
: BIT OS IS NOT USED. 
: BIT 04 IS NOT USED. 

BIT 03 IS NOT USED. 


BIT O02 IS NOT USED. 


: | BIT 01 IS NOT USED. 

; ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDTB: ;FUNCTION CODE TABLE 
.WORD OP] ; NOP 


ee SS 
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OPI !ATALILF! IVC 
ATA!OPI:1VC!IAE 


ATA! OPI! IVC 


OP] 
OPI! IVC 


OP! ‘ATA! IVC 
OPI 'ATA! IVC 
OP] 


OP | 
OPI!ATA! ILE FIVC 
OPI !ATA!ILF IVC 
ATA!OPI! IVC! 1AE 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF!IVC 
OPI !ATA!ILF!IVC 
OPI !ATA!ILF! IVC 
OPI!ATA!ILF!IVC 
OPI !ATALILF! IVC 
OPI!ATA!] 
WCE!OPI! IVC! IAE!AOE!HCE!ECH 
WCE! OPI! IVC! IAE!AOE!HCE!ECH 
OPI!ATA!ILF! IVC 

OPI !ATA!ILF! IVC 

OPI! IVC!WLE! IAE ! AOE ‘HCE 
OPI! IVC! WLE : IAE ! AOE 

OPI !ATALILF!IVC 
.OPI!ATALILF I IVC 
“OPI! IVC! JAE!AQE ! HCE SECH 
OPI! IVC! IAE! AOE! HCE! ECH 
OPI!ATALILF! IVC 
OPI!ATALILF I IVC 


LF! 


Ivc 


ILLEGAL FUNCTION (2) 


“RE CALIBRATE 
“DRIVE CLEAR 


s RELEASE 
OFFSET 


;RETURN TO CENTER: INE 
;READ IN PRESET 

;PACK ACKNOWLEDGE 
: L FUNCTION 


;ILLE 


Se Be Be Be Be Ba Be Be Be © . . 


oF 
hn ee 
eg Dead 


FUNCTION 


FUNCT ION 
FUNCT ION 


HECK HEADER AND DATA 
GAL FUNCTION (54) 
GAL FUNCTION (56) 


; ILLEGAL FUNCTION (66) 
sREAD DATA 
;READ HEADER AND DATA 

; ILLEGAL FUNCTION (74) 
; ILLEGAL FUNCTION (76) 


et oe 


——_—— = we ..-= 
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ATTENTION (ATA) TABLE 


2 
= 071766 007 
4 071767 002 
5 977750 004 
6 071751 010 
? 071752 020 
BR 971753 040 
9 071754 100 
'C 077755 200 
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ATTENTION (ATA) TABLE 
: .BYTE 
B 


w 

< 

~ 

rm 
—OW—ooO fF M— 
Mr HMOOs © © © 
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DATA PATTERN TABLE SEG 0687 
; -SBTTL DATA PATTERN TABLE 
3 071756 RGDTPT: 

4 071756 MIXED: 
5 971756 000000 WORD Q. 
6 071760 000001 WORD 1. 
7 071762 000003 WORD 3. 
8 071764 000007 WORD 7, 
9 071766 000017 WORD 15. 
10 071770 000037 WORD 31. 
11071772 000077 WORD 63. 
12 071774 000177 WORD 127. 
13 071776 000377 WORD 255. 
140 000777 WORD 511. 
15 072002 001777 WORD 1023. 
16 072004 005777 WORD 2047. 
17 Q7 007777 WORD 4095. 
18 072010 017777 WORD 8191. f 
19 072012 057777 WORD 163583. 
20 C72014 077777 32767. 
21 072016 177777 ONE S WORD 65535. 
22 072020 177777 65535. 
23 072022 077777 WORD 32767. 
24 072024 037777 WORD 16383. 
25 072026 017777 WORD 8191. 
26 072030 007777 WORD 4095. 
7 072032 003777 WORD 2047. 
28 072034 001777 WORD 1023. 
29 072036 000777 WOR 511. 
30 072040 000377 WOR 255. 
31 072042 000177 WORD 127. 
32 072044 000077 WORD 65. 
33 072046 000037 -WORD 31. 
50 000017 -WORD 15. 
35 072052 000007 «WORD 7. 
36 072054 000003 -wORD 3. 
37 072056 000001 «WORD 1. 
069 000000 ZEROS: .WORD Q. 
39 072062 000000 -WORD 0. 
40 072064 000001 «WORD 1. 
41 072066 000002 WORD 2. 
42 072070 000004 WORD 4, 
43 072072 000010 WORD 8. 
44 072074 000020 WORD 16. 
45 072076 000040 WORD 32. 
000100 WORD 64. 
47 072102 000200 WORD 128. 
48 072104 0004 WORD 256. 
49 072106 001000 WORD 512. 
50 072110 002000 -WORD 1024. 
51 072112 004000 -WORD 2048. 
52 072114 610000 -WORD 4096. 
53 072116 020006 .WORD 8192 
54 072120 040000 -WORD 16584 
55 072122 100000 -WORD 32768 
56 072124 100000 WORD 32768 


TTT TTT TEETER ee ess tsetse shssssiestessssnsteresineentins= oe 
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DATA PATTERN TABLE SEG Ucb% 
58 072130 020000 .WORD 8192. 
59 072132 010000 “WORD 4096. 
60 072134 004 “WORD 2048. 
61 072136 002000 “WORD 1024. 
62 072140 001000 “WORD 512. 
63 072142 0004 “WORD 256. 
64 072144 000200 "WORD 128. 
65 072146 0001 “WORD 64. 

66 072150 000040 “WORD 32. 
67 07215. 000020 "WORD 16. 
68 072154 000010 “WORD 8. 
69 072156 000004 “WORD 4. 
70 072160 000002 “WORD 2. 
71 072162 000001 “WORD 1. 
72 072164 000000 “WORD 0. _. 
73 072166 177777 “WORD 65535. 
74 072170 177776 “WORD 65534. 
75 072172 «177774 “WORD 65532. 
76 072174 177770 “WORD 65528. 
77 C72176 177760 “WORD 65520. 
78 072200 177740 “WORD 65504. 
79 072202 177700 “WORD 65472 
80 072204 177600 “WORD 65408 
81 072206 177400 “WORD 65280 
82 072210 177000 “WORD 65024 
83 072212 176000 “WORD 64512. 

7 74000 “WORD " 
85 072216 170000 “WORD 61440 

160000 "WORD 57344 
87 072222 140000 “WORD 49152. 
88 072224 100000 “WORD 
89 072226 000000 “WORD 0. 
90 072230 000000 “WORD 
91 072232 100000 “WORD 32768. 
92 072234 140000 “WORD 49152. 
93 072236 160000 “WORD 57344 
94 072240 170000 “WORD 61440. 
95 072242 174000 “WORD 63488. 
9 072244 176000 “WORD 512. 
97 072246 177000 “WORD 65024. 
98 072250 177400 “WORD 65280. 
99 072252 177600 “WORD 65408 
100 072254 177700 “WORD 65472 
101 072256 177740 “WORD 
177760 “WORD 65520. 

103 072262 177770 “WORD 65 
1 2 77774 “WORD 65532 
105 072266 177776 “WORD 65534 
106 072270 177777 “WORD 65535 
107 072272 125252 EARLY: .WORD 690 
108 072274 152525 “WORD  43690./2 
109 072276 125252 “WORD 43690. 
110 072 177777 "WORD 65535. 
111 072302 177776 “WORD 65534. 
112 072304 177775 WORD 65533. 
113 072306 177773 “WORD 65531. 
114 072310 177767 “WORD 65527. 
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. WORD 
D 
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MONI) A Bs St tt 


NO 


6 
27 
28 
29 
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072640 
072650 
072660 
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57 
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073312 
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TST 3 


M 6 
MACRO VO04.00 4-APR-81 91:15:59 PAGE 54 


-SBTTL ERROR MESSAGE TABLE 


EMT1:  .WORD 

000000 EMT2 . WORD 
000 EMTS . WORD 
000000 EMT4 WORD 


EMT11:  .WORD 
00000 EMT12: .WORD 
077464 EMT13: .WORD 
EMT14: . WORD 
EMT15: .WORD 
077773 EMT16: .WORD 
EMT17: .WORD 
EMT20: .WORD 
077773 EMT21 . WORD 


100004 EMT30: .WORD 
100004 E—MT31: .WORD 
100004 EMT32: .WORD 
100004 EMT33: .WORD 
100004 EMT34: .WORD 
100004 EMT35: .WORD 
100004 EMT36: .WORD 
100004 EMT37: .WORD 
000000 EMT40O: .WORD 
101465 'EMT41: .WORD 
101413 EMT42: .WORD 
101465 EMT43: .WORD 
101465 EMT44: .WORD 
101465 EMT45: .WORD 
101465 EMT46: .WORD 
000000 EMT47: .WORD 
101157 EMT5SO: .WORD 
100004 EMTS1: .WORD 
101341 EMTS2: .WORD 
101341 EMTS3: .WORD 
101341 EMT54: .WORD 
100711 EMT5S: .WORD 
101341 EMT56: .WORD 
101341 EMT5S7: .WORD 
102153 EMT60: .WORD 
101341 EMT61: .WORD 
102153 EMT62: .WORD 

EMT63: WORD 
101366 EMT64: .WORD 
104574 EMT65: .WORD 
101413 EMT66: WORD 
101413 EMT67: .WORD 





1,0 
EMS2. ~EMS3,0 
EMS2,EMS4,0 
EMS5 .EMS6,0 


MSS. 0 
EMS 167, EMS64 ,0 
EMS110,EMS170,0 
EMS7,0 
EMS1 
EMS11.EMS12,0 
EMS13. EMS 14, EMS15. .EMS16,0 


se s: &: & & & ® 


Iw 
. 
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2 
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rm 

= 

” 
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EMS11,EMS45,—MS30,0 

EMS66,EMS20, ;0, 

EMS75 .EMS141.EMS76.0 

EMS144, ensi45— EMS?3_ EMS76,0 
4 ,. MS53, E 0 

EMS77.EMS53,EMS76,0 

me 00- EMSs. EMS76,0 

ay “EMS53,EMS76,0 


30.EMS67,0 
EMS47.EMS53,EMS67.EMS115,£MS140,EMS141:,0 
EMS47, EMSS3. EMS67,EMS115,EMS141,EMS164,0 


EMS67,0 
EMS 142 ,EMS143 EMSS EM EMS67,0 
EMS51,EMS72,EMS67,EMS115,EMS50,EMS70,0 
EMS 167. EMS7 os EM $67,0 
EMS56,EMS67, Phas EMS 150. EMS152.EMS70,0 
EMS71_EMS56 .EMS67,EMS115,—MS150,EMS152.EMS72,0 
EMS140.EMS67,EMS115,EMS47,EMS70.0 


EMS150, EMS152.EMS70,EMS115,EMS56,EMS73,—MS67,0 
EMS52,EMS205 EMS214 EMS206.EMS115.EMS51,EMS72,0 
peiee EMS103,EMS72.EMS124,0 
EMS165.EMS103.EMS72,EMS171,0 


ee ee ee oe es 2 ee ae ee ee 


SEQ 0285 
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_ ERROR MESSAGE TABLE SEQ 0286 


58 073324 100546 077576 103620 EMT70: .WORD &MS46,EMS20.EMS163,0 

59 0733 01400 101572 102420 EMT71: .WORD &MS71.EMS101,EMS163,0 

00575 101413 103620 EMT72: .WORD EMS47, EMS 72,—MS163.EMS115,EMS140,EMS141.0 
00575 101413 103620 EMT73: .WORD £&MS47.EMS72. EMS 163. EMS115.EMS141.EMS72,0 
00774 100711 103620 EMT74: .WORD &MS56.EMS53.E 


% («&Y 
; 
073200 | 
63 973410 101400 100774 103620 EMT75: .WORD €&MS71,EMS56, reg EMS115,EMS150,EMS152,EMS72,0 
073430 100624 100711 103620 EMT76: .WORD &MS50,EMS53.EMS163,0 
65 073440 103216 103233 100711 EMT77: .WORD &MS142,EMS143,EMS53,EMS163,0 
73452 101457 103170 103620 EMT100: .WORD &MS75,EMS141,EMS163.EMS115.EMS47,EMS70 .0 
67 073470 101457 103354 103620 EMT101: .WORD &MS75.EMS150.EMS163.EMS115.EMS56.EMS73,0 
073506 103766 101423 103620 EMT102: .WORD &MS167,EMS73,EMS163.0 
69 073516 103337 103372 101440 EMT103: .WORD &MS147,EMS151.EMS74, 


EMS163,0 
70 073530 100653 101440 103620 EMT104: .WORD &MS51,EMS74,EMS163,EMS115,EMS50,EMS70,0 
71 073546 103725 101544 103620 EMT105: .WORD &MS165,EMS100,EMS163,0 

72 073556 103725 101516 103620 EMT106: .WORD &MS165,EMS77,EMS163,0 

7% 073566 103261 103271 100711 EMT107: .WORD &MS144.EMS145,EMS53.EMS163,EMS115,EMS143,EMS70,0 
74 073606 101753 102013 102156 EMT110: .WORD &MS110.EMS112.EMS116,EMS111,0 

75 073620 102077 077121 000000 EMT111: .WORD EMS113. EMS4 0 

76 073626 102077 077056 O00000 EMT112: .WwORD &MS113,EMS3,0 

77 C73634 101753 102153 102156 EMT113: .WORD &MS110.EMS115,EMS116,—MS117,EMS114,0 

78 073650 102077 102230 000000 EMT114: .WORD &MS113,.EMS120,0 


79 073656 102251 102711 102735 €MT115: .WORD &MS121,EMS132,—MS133.0 

80 97 102314 102711 102735 £MT116: .WORD &MS122.EMS132.EMS133.0 

81 073676 102351 102711 735 E—MT117: .WORD £&MS123,EMS132,EMS133,0 

82 073706 102414 102711 102735 EMT120: .WORD &MS124, y 3,0 

83 073716 1024646 102711 102735 EMT121: .WORD &MS125,EMS132,EMS133,0 

84 073726 102511 102711 102735 EMT122: .WORD &MS126,EMS132,EMS133,0 

85 073736 103112 102711 102735 EMT123: .WORD &MS137,E€MS132,EMS133,0 

86 073746 102613 102711 102735 EMT124: .WORD &MS130,EMS132.EMS133,0 

87 073756 102651 102711 102735 EMT125: .WORD €&MS131,E—MS13 33,0 

88 073766 102251 102711 102760 EMT126: .WORD © —MS121,EMS132,EMS134,EMS123,0 

89 074 102314 102711 102760 EMT127: .WORD &MS122,€MS132,EMS134,EMS123,0 

90 074012 102351 102711 102760 EMT130: .WORD &MS123,EMS132,EMS134,EMS123,0 

91 074084 102414 102711 102760 EMT131: .WORD € »EMS132,EMS134,EMS123.0 

92 074036 102446 102711 760 EMT132: .WORD £&MS125.EMS132,EMS134.EMS123,0 

93 074050 102511 102711 102760 £EMT133: .WORD &MS126,EMS132,EMS134,EMS123,0 

94 074062 103112 102711 102760 EMT134: .WORD £&MS137,EMS132,EMS134,EMS123,0 

95 074074 102613 102711 102760 EMT135: .WORD &MS130,EMS132,EMS134,EMS123,0 

96 074106 102651 102711 102760 EMT136: .WORD &MS131,EMS132,EMS134,EMS123,0 

97 074120 102251 102711 103022 &MT137: ‘.WORD &MS121.EMS132.EMS135.0 | 
98 074130 102351 102711 103022 EMT140: .WORD &MS123,EMS132,EMS135,0 ‘ 
99 074140 102251 102711 103065 EMT141: . EMS121,EMS132,EMS1 36,0 

100 074150 103112 102711 103065 €EMT142: .WwORD &MS137, ~EMS136,0 
101 074160 102414 102711 103065 EMT143: .WORD &MS124,EMS132,EMS136,0 

102 074170 102646 102711 103065 EMT144: .WORD &MS125,EMS132,EMS1 36,0 

103 074200 102511 102711 103065 EMT145: .WORD &MS126,EMS132,EMS136,0 

104 074210 102651 102711 103065 EMT146: .WORD &MS131,EMS132,EMS136,0 

105 074220 104042 102711 103065 EMT147: .WORD &MS171,E -EMS136.0 

106 074230 102613 102711 065 EMT150: .WORD £&MS130,E€MS132,EMS136,0 

107 074240 103147 102153 1031770 EMT151: “WORD &MS140,€MS115,EMS141,EMS70,0 . 

108 074252 108216 102153 103233 EMT152: .wORD &MS142.EMS115,€MS143,EMS72,0 : 
109 074.264 103261 103271 103320 EMT153: .WORD &MS144.EMS145,EMS146, 2EMS115, EMS143.,—MS72,0 
110 074302 103261 103271 077576 EMT154: .WORD &MS144.EMS145.EMS20,EMS115,€MS143,EMS70,0 
111 074580 103354 103416 103464 EMT155: .WORD &MS150.EMS152.EMS154, ns 18500 

112 074332 108337 103372 103464 &MT156: _WORD &MS147.EMS151.EMS154.EMS155 0 

113 074344 1038337 103372 103520 EMT157: .WORD &MS147.EMS151.EMS156,E£MS157,0 

114 074356 103570 103520 103553 EMT160: .WORD &MS161.£MS156,EMS160,0 
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Sasuny 


NOWIUW 


104452 


000000 


EMT161: 


EMT251: 


massa 3 


2 


EMS25,EMS27.EMS15 
EMS 6. -EMS27 EMS 
EMS47.EMS163, EMS 


6.EMS160, 
$156, ENS 160.0 


ENS47ENS20.0 


EMS56.EMS2O. 


EMS46, wt 0 


EMS224 ,EMS20,0 
EMS203 Ensi6{ 


i° ,EMS30,EMS202,0 
*—MS157,0 


MS133,0 
EMS171, EMS $132. “Ems 134 -EMS123,0 


EMS113,EMS 
EMS200, EMS20 


EMS203, Ee 
EMS203,EMS 

EMS203, ENs80 
EMS 203. EMS 


1.0 
EMS30 EMS202 0 
Ske emcees 
143, nS 50 Em 


MS202, EMS] 15, EMS152, EMS72,0 


EMS50,€ S103, EMS 72 6 
EMS104,E 


MS73,E 
EMS75, Emsi41, 


MS202,0 
EMS) 15. EMS140,0 


alee EMS150,0 


emiae chs EMS 


EMS72,E! 5115, EMS50,EMS70,0 
53,—MS115,EMS143,EMS72,0 


103, 
MS52.EMS205, 


EMS52,EMS117,EMS56,EMS1 
EMS56 é 6 





EMS52.EMS117.EMS63,0 


EMS167,EMS132,EMS207, cas 
EMS167, EMS13e, EMS210,E 


EMS167,EMS211 


$125,0 
-EMS210, EMS207. EMS206,0 


EMS212.EMS213, 0 


ee ee ee ee —_ om o 


EMS166, “Ss. -EMS51,EMS72,0 
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FRROR MESSAGE TABLE SEO 0286 

172 075154 103725 104526 000000 EMT252: .WORD &MS165,EMS212,0 

173 075162 103337 103372 103520 EMT253: .WORD &MS147.EMS151.EMS156,EMS210,EMS26,EMS27,0 

174 075200 104352 101572 100004 EMT254: .WORD &MS203,EMS101.EMS30,0 

175 075210 104352 103766 100004 EMT255: .WORD E&MS203.E $30.0 

176 075220 104352 101544 100006 EMT256: .WORD &MS203.EMS100,EMS30, 

177 075230 077370 100546 100004 EMT257: .WORD &MS11,€MS46,EMS30,EMS102,0 

178 075242 100701 102206 100774 EMT260: .WORD &MS52.EMS117,EMS56,EMS102, 

179 075254 100701 104413 104716 EMT261: .WORD &MS52.EMS205.EMS220,EMS206,EMS115,EMS51,EMS72,0 

180 075274 101656 101423 104322 EMT262: .WORD &MS104,EMS73.EMS202 

181 075304 1 100711 101620 EMT263: .WORD &MS5O,€MS53,EMS102,0 

182 075314 100774 100711 101620 EMT264: .WORD 56.EMS53,.EMS102.EMS115,.EMS150,£MS152,EMS70,0 

183 975334 101400 100774 101620 EMT265: .WORD &MS71.E 36, EMS 102 EMS115.EMS150.EMS152.EMS72._0 

184 075354 103216 103233 100711 266: .WORD &MS142,EMS143,EMS53,EMS102, 

185 075366 24 103320 102153 EMT267: .WORD &MS5O,EMS146,EMS115.EMS52,EMS117,EMS46,0 

186 075404 100575 100711 101620 EMT270:..WORD &MS47.EMS53,EMS102,EMS115.EMS140, 

187 075420 100575 100711 101620 EMT271: .WORD &MS47.EMS53.EMS102.EMS115.EMS141.EMS72,0 

188 075436 101457 103170 101620 EMT272: .WORD &MS75.EMS141,EMS102,EMS115,EMS47.EMS73,0 

189 075454 100653 101440 101620 EMT273: .WORD E&MS51.EMS74,EMS102,EMS115,EMS50,EMS 70,0 

190 075472 101157 100711 101051 EMT274: .WORD &MS63.EMS53,EMS57,EMS115,EMS41,&MS146,0 

191 675510 102156 100711 100324 EMT275: .WORD &MS116,EMS55,EMS41,EMS57,0 

192 075522 100 100711 101051 EMT276: .WORD &MS47,EMS53,EMS57.EMS115,.EMS140,0 

193 075536 100575 100711 101051 EMT277: .WORD &MS47.EMS53.EMS57.EMS115.EMS141.EMS72,0 

194 075554 100774 100711 101051 EMT300: .WORD EMS56,EMS53,EMS57.EMS115,EMS950,EMS152,EMS70,0 _ 

195 075574 101400 100774 100711 EMT301: .WORD &MS71.EMS56.EMS53.EMS57,EMS115,EMS150,EMS152.EMS72,0 
075616 103725 101544 101647 EMT302: .WORD 5 EMS100,€MS103,EMS57,0 

197 075630 103725 101572 101647 EMT303: .WORD &MS165.EMS101.EMS103.EMS57, 

198 075642 103725 101516 101647 §EMT304: .WORD &MS165.EMS77,EMS103,EMS57,0 
075654 100546 100004 101205 EMT305: .WORD &MS46,EMS30,EMS64,EMS57,0 

200 075 100624 100711 101051 EMT306: .WORD &MS5O.EMS5S3.EMS57.0 

201 075676 100624 103320 102153 EMT307: .WORD &MS50,EMS146,EMS115,EMS52,EMS117.EMS46,EMS57,0 

202 075716 103216 103233 100711 EMT310: .WORD &MS142,EMS143,EMS53.EMS57.0 

303 075730 101656 101647 100711 EMT311: .WORD &MS104.EMS103,EMS53.EMS57.0 

304 075742 101705 101647 100711 EMT312: .WORD &MS105.EMS103.EMS53,EMS57.0 

205 075754 103261 103271 101647 EMT313: .WORD &MS144.EMS145.EMS103,EMS57,EMS115,EMS143,EMS70,0 

306 075774 100352 101647 100711 EMT314: .WORD 2.£ , ,EMSS7, 

207 076006 101647 190711 EMT315: .WORD &MS31.EMS103.EMS53.EMS57. 

508 076020 101400 100014 101647 EMT316: .WORD &MS71.EMS31,EMS103.cMS57.0 

209 076032 01 101647 101051 EMT317: .WORD &MS43,EMS103,EMS57,0 

210 076042 100503 101647 101051 EMT320: .WORD €MS45.EMS103.EMS57,0 

211 076052 30 101647 101051 EMT321: .WORD &MS44.EMS103.EMS57.0 

212 07 101734 077576. EMT322: .WORD £&MS106,EMS20.0 

213 076070 100220 101647 101051 EMT323: .WORD &MS36,EMS103.EMS 

214 076100 104115 100220 101647 EMT324: .WORD €&MS17%,EMS36.EMS103,EMS57,0 

215 976112 104075 100220 101647 EMT325: .WORD &MS172.EMS36.EMS103.EMS57.0 

216 076124 077442 104132 077464 EMT326: .WORD €&MS13,EMS174,EMS15,EMS35,EMS53,EMS175,0 

217 076142 103337 103372 101440 EMT327: .WORD €MS147,EMS151,EMS74,EMS175,0 

218 076154 101271 100711 104140 EMT330: .WORD €&MS66,EMS53,EMS 

219 076164 100072 101647 100711 €EMT331: .WORD &MS33.EMS103,EMS53.&MS175,0 

220 076176 100275 101647 100711 EMT332: .WORD &MS40.EMS103.EMS53.EMS57,0 

221 076210 100653 101440 101051 &MT333: .WORD £&MS51.EMS74,EMS57,EMS115,EMS50,EMS70,0 

222 076226 101457 103170 101051 €&MT334: .WORD &MS75.EMS141,EMS57,EMS115,EMS47,EMS75,0 

223 076244 101457 103354 103416 EMT335: .WORD £—MS75.EMS150,EMS152,EMS57,EMS115,EMS56,EMS73,0 

224 076264 101077 101112 101141 EMT336: .WORD E&MS60.EMS61.EMS62,0 

225 076274 102156 102206 100120 EMT337: .WORD &MS116,EMS117.EMS34,0 

226 076304 100120 100711 100723 EMT340: :WORD &MS34,£MS53,EMS54,EMS111,0 

227 076316 100745 100120 000000 EMT341: .WORD EMS55,EMS34,0 

228 076326 100701 102206 100774 EMT342: .WORD &MS52.EMS117,EMS56,EMS57,0 
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229 076336 100701 102206 100503 &MT343: .WwORD E&MS5S2,€MS117,EMS45,EMS57.0 
530 076350 100701 102206 100430 EMT344: .WORD &MS52.EMS117.EMS44.EMS57.0 
32 100701 102206 104736 EMT345: .WORD &MS52.EMS117.EMS221.0 
532 076372 101734 077576 102153 EMT346: .WORD &MS106,EMS20.EMS115.EMS223,EMS72,0 
33 076406 190701 104413 105006 EMT347: .WORD &MS52.EMS205.EMS222.EMS206.0 
234 076420 101457 103354 101620 EMT350: .WORD E&MS75,EMS150,EMS102.EMS115.EMS56,EMS73,0 
235 076436 103766 101423 101620 EMT351: .WORD £&MS167,EMS73.EMS102.0 
5% 076446 104612 000000 EMT352: .WORD &MS215. 
337 076452 104663 104352 104633 EMT353: .WORD &MS217,EMS203,EMS216,0 
238 076462 104736 077576 OCO000 EMT354: .WwORD &MS221,EMS20,0 





= ~ . ——— = 


CZ7RMOBO RMOS/3/2 FCTNL 
ERROR MESSAGE TABLE 


1 076470 105166 
; 076502 105772 


4 076512 105205 
5 976516 105214 


6 

7 076522 1 
8 076526 1 
9 076540 1 


10 

11 076552 105364 
12 076564 105423 
i 076576 105560 
15 076610 105716 


TST 3 


105772 
106047 
000000 
000000 
000000 
105772 
105772 
105772 
105772 
105772 
000000 
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106047 
106047 


106047 
106047 
106047 


EHT 344: 
EHT353: . 


TT eee soe 


TSH1,STSH2,STSH4, 
TSH1,STSH2,STSH4, 


EH356,STSH1,STSH2,STSH4, 
EH337,STSH1,STSH2,STSH4, 
EH344,STSH1,STSH2,STSH4, 


EH353,0 


ee a eee —_— 


SEQ 0290 


-2RMOBO RMOS/3/2 FCTNL 
FRROR MESSAGE TABLE 


=~) and = -od «3 


PWNS --O OWMNF NAP wry. 


076614 
076624 


106232 
106526 


TST 5 


106326 
106344 


106326 
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106344 
106376 


106344 


106344 
106344 
106344 


EDT344: . 
EDT353: 


. WORD 
. WORD 


,STSD1,S1SD2,STSD4 


,STSD1,STSD2,STSD4 
»$TSD01,5TSD2.S1SD4 
»STSD1,51SD2,51SD4,0 


WUAWGS MO 


wt 


——=— 
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1 076706 106471 106427 106427 EFT): . WORD EF 111,STSF,STSF,STSF 
g 076714 106427 106427 106427 EFT2:  .WORD STSF,STSF,STSF 

4 076722 106410 EFT110: .WORD F110 

; 976724 106411 EFT111: .WORD  €F111 

? 076726 106413 EFT114: .WORD F114 | 

8 676730 106418 106427 106427 EFT223: .WORD EF114,STSF,STSF,SISF 
10 076740 106416 106427 106427 EFT336: .WORD E&F336,STSF,STSF,SISF 
17 076750 106416 10642? 106427 EFT337: .WORD EF336.STSF.STSF.STSF 
rg 076760 106416 106427 106427 EFT344: .WORD EF336.STSF_STSF.STSF 
14 F114 


076770 106413 EFTS53: .WORD E 


—————— ee ee eee 
’ 
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.SBTTL ERROR MESSAGE STRINGS 


2 
5076772 = 127, 122117 EMST: — ASCIZ WRONG UNIT SELECTED (RMCS2, BITS 0-2) a 
4 077041 104 105 126 EMS2: .ASCIZ @DEVICE WENT 
5077056 ~=—s_- 125 116 101 EMSS: TASCIZ. UNAVAILABLE “DVA'' (RMCS1, BIT 11) @ 
6 077121 116 117 116 EMS4: <ASCIZ @NONEXISTENT ‘ NED‘ CRMC S2 11 12) @ 
? 077164 103 117 175 EMSS:  <ASCIZ @COMMAND NOT COMPLETED, 
8 077214 103 117 116 EMS6:  <ASCIZ @CONTROLLER NOT READY (RMCS1, BIT 7) 
9 077261 104 122 111 EMS7:  .ASCIZ @DRIVE NOT READY "DRY’' (RMDS, BIT 7) 
10 077326 «©9107 = 117 ~—Ss«040s« EMS10: :ASCIZ @GO NOT RESET "'GO’’ (RMCS1, BIT 0) @ 
110773702111 116 126 EMS11: <ASCIZ @INVALID a 
12 077401 106 = s-'125 116 EMS12: .ASCIZ @FUNCTION CODE (RMCS1, BITS 1-5) @ 
130774422115 101 123 EMS13: .ASCIZ @MASSBUS a 
14077453 103 117 116 EMS14: .ASCIZ @CONTROL @ 
15 077464 102 125 123 EMS15: .ASCIZ @BUS PARITY ERROR @ 
16 077506 042 #115 103 EMS16: .ASCIZ a’ MCPE'' (RMCS1, BIT 13) @ 
17 077536 = «124 122 101 EMS17: .ASCIZ @TRANSFER ERROR (RMCS1, BIT 14) a 
18 077576 23 = =©110 + 117 EMS20: .ASCIZ @SHOULD NOT BE SET @ 
19 077621 12 117 122-—S«EMS21: .ASCIZ @WORD COUNT (RMWC) @ 
20 077644 102 125 123 EMS22: .ASCIZ @BUS (RMBA) @ 
21077660 042 114 102 EMS23: .ASCIZ a@'LBT'' (RMDS, BIT 10) @ 
22 077706 042 ~= 101 117 EMS24: .ASCIZ a‘'AQE’’ (RMERI, BIT 09) a 
23 077735 104 111 123. EMS25: .ASCIZ @DISK (RMDA) @ 
24 077752 = 103.—S's—i«a137’~=—s«114 =~ EMS26: .ASCIZ @CYLINDER (RMDC) a 
25 077773 101 104 104 EMS27: .ASCIZ @ADDRESS @ 
26 123 «126 101 EMS30: .ASCIZ aSTATUS a 
27100014 042 127 *114 EMS31: .ASCIZ a@'WLE'' (RMER1, BIT 11) a 
28 100043 9 042—s«125 120 EMS32: .ASCIZ a’ UPE'’ (RMCS2, BIT 13) a 
100072 = 042,-—i<“‘ié«‘z27~Sstsé«*21003's«sEMS33: © AASCZ = WCF** CRMERT, BIT 5) @ 
100100 «=«127)-~=Ss«d192=Ss'17-s«EMS34: TASCIZ QWRITE CHECK ERROR-"WCE’ (RMCS2, BIT 14) @ 
31 100171 042 115 104 EMS35: .ASCIZ @'MDPE’’ (RMCS2, BIT 8) 
32 100220 042 104 103 EMS36: .ASCIZ a’ DCK™ 1, BIT 15) a 
33 100247 042 105 103 EMS37: .ASCIZ @'ECH'' (RMERT, BIT 6) @ 
100275 042—s«108 114 EMS40: .ASCIZ a’ DLT'’ (RMCS2, BIT 15) a 
35 100324 042 115 130 EMS41: .ASCIZ a@'MXF'’ (RMCS2, BIT 9) a 
36 100352 = 042s‘ 100K 124 EMS42: .ASCIZ a’ DTE'’ (RMERI, BIT 12) a 
37 100401 042 110 103 EMS43: -ASCIZ a‘ HCRC’* (RMERI, BIT 8) a 
38 100430 110 105 101 EMS44: .ASCIZ @HEADER COMPARE ERROR "HCE" (AMER? BIT 7) a 
39 100503 106 +117 + 122 EMS45: .ASCIZ @FORMAT ERROR 'FER'' (RMER1, BIT 4) a 
40 100546 042 #8111 101 EMS46: .ASCIZ a‘IAE’’ (RMER1, BIT 10) a 
41 100575 042 117 120 EMS47:  -ASCIZ @/OPI'’ (RMERT. BIT 13) a 
42 100624 042 123. 113 EMS5O: -ASCIZ a''SKI'’ (RMER2, BIT 14) a 
73 100653. «= O>S—si«90=S”Ss«sTT.s#EMS51: “ASCIZ. @'PIP' (RMDS. BIT 13) a 
44 100701 124 110 105 EMS52: -ASCIZ @THE RM a 
45 100711 104 105 124 EMS53: .ASCIZ @DETECTED a 
46 100723. =: 101 124 040 EMS54: .ASCIZ @AT AN UNEXPECTED a 
47 100745 111 116 103 EMS55: .ASCIZ @INCORRECT DATA DURING 2 
48 100774 111 116 126 EMS56: .ASCIZ @INVALID COMMAND ERROR "‘IVC'* (RMER2, BIT 12) a 
49 101051 104 125 122 ‘EMS57: .ASCIZ @DURING DATA TRANSFER @ 
50 101077 =—s-:104 101 124 :EMS60: .ASCIZ @DATA READ a 
51 101112 104 117-105 /EMS61: .ASCIZ @DOES NOT COMPARE WITH a 
§2 101141 104 101 124 ‘EMS62: .ASCIZ @DATA WRITTEN @ 
53 101157 042 120 101 EMS63: .ASCIZ a@'PAR' (RMER1, BIT 3) @ 
54 101205 111 123 040 EMS64: .ASCIZ @IS INCORRECT a s . 
55 101223 103 117 115 EMS65:  ASCIZ @COMPOSITE ERROR ‘'ERR'' (RMDS, BIT 14) a 
56 101271 104 101 124 EMS66: .ASCIZ @DATA PARITY ERROR ‘DPE’ (RMER2, BIT 3) @ 
7 101361 104 125 122 EMS67: .ASCIZ @DURING SEEK COMMAND @ 
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58 101366 171 123 .04G EMS70: .ASCIZ @IS RESET @ 
59 101400 105 122 1 EMS71: .ASCIZ @ERRONEOUS @ 
60 101413 117 123 EMS72: .ASCIZ a@1S SET a 
61 101423 104 177 104 EMS73: .ASCIZ @DID NOT SET a 
62 101440 104 111 104 EMS74: .ASCIZ @DID NOT RESET a 
63 101457 114 117 123 EMS75: .ASCIZ @LOST a 
64 101465 104 125 122 EMS76: .ASCIZ @DURING PACK ACK COMMAND @ 
65 101516 042 122 115 EMS77: .ASCIZ @' RMR’ (RMER1, BIT 2) a 
66 101544 042 111 114 EMS100: .ASCIZ a@''ILR’’ (RMER1, BIT 1) @ 
67 101572 042 111 114 EMS101: .ASCIZ a@''iLF'’ (RMER1, BIT 0) @ 
68 101620 104 125 122 EMS102: .ASCIZ @DURING SEARCH COMMAND @ 
09 101647 105 122 122 EMS103: .ASCIZ @ERROR @ 
70 101656 042 114 102 EMS104: .ASCIZ a@'LBC’’ (RMER2, BIT 10) a 
71 101705 042 114 123 EMS105: .ASCIZ a@'LSC'' (RMER2, BIT 11) a 
72 101734 110 105 101 EMS106: .ASCIZ @HEADER ERRORS @ 
73 101753 102 125 123 EMS110: .ASCIZ @BUS TIMEOUT (04 TRAP) @ 
74 102002 101 104 104 EMS111: .ASCIZ @ADDRESS a 
75 102013 127 110 105 EMS112: .ASCII @WHEN READING/WRITING RH REGISTERS a 
76 102055 101 124 040 -ASCIZ @AT THE FOLLOWING @ 
77 102077 124 110 105 EMS113: .ASCIZ @THE SELECTED DEVICE IS a 
78 102127 116 117 116 EMS114: .ASCIZ @NONEXISTENT DEVICE @ 
79 102153 015 O12 O00 EMS115: .ASCIZ <CR><LF> 
102156 124 110 105 EMS116: .ASCIZ @THE MASSBUS CONTROLLER @ 
81 102206 106 101 111 EMS117: .ASCIZ @FAILED TO DETECT a 
82 102230 116 117 124 EMS120: .ASCIZ @NOT AN RMO5/3/2 a 
83 102251 103 117 116 EMS121: .ASCIZ @CONTROL STATUS REGISTER 1, RMCS1, a 
102314 102 125 125 EMS122: .ASCIZ @BUS ADDRESS REGISTER, RMBA, a 
85 102351 103 117 116 EMS123: .ASCIZ @CONTROL STATUS REGISTER 2, RMCS2, a 
86 102414 105 i22 122 EMS124: .ASCIZ @ERROR REGISTER 1, RMERI, a 
87 102446 101 124 124 EMS125: .ASCIZ @ATTENTION SUMMARY REGISTER, RMAS, a 
102511 115 101 1171 EMS126: .ASCIZ @MAINTENANCE REGISTER #1, RMAR 41, @ 
89 102554 105 103 103 EMS127: .ASCIZ @ECC POSITION REGISTER, RMEC1, @ 
90 102613 105 103 103 EMS130: .ASCIZ @ECC PATTERN REGISTER, RMEC2, a 
91 102651 115 101 111 EMS131: .ASCIZ @MAINTENANCE REGISTER 2, RMMR2, a 
92 102711 116 117 124 EMS132: .ASCIZ @NOT INITIALIZED BY @ 
93 102735 125 116 111 EMS133: .ASCIZ @UNIBUS INITIALIZE @ 
94 102760 103 117 116 €MS134: .ASCIZ @CONTROLLER CLEAR, I.E. BIT 5 OF @ 
95 103022 122 110 O57 EMS135: .ASCIZ @RH/RM ERROR CLEAR (RMCS1, BIT 14) a 
10306 104 122 111 EMS136: .ASCIZ @DRIVE CLEAR COMMAND a 
97 103112 104 122 111 EMS137: .ASCIZ @DRIVE STATUS REGISTER, RMDS a 
98 103147 115 105 104 EMS140: .ASCIZ @MEDIUM OFF LINE @ 
99 103170 042 115 117 EMS141: .ASCIZ @'MOL'' (RMDS, BIT 12) a 
100 103216 104 122 111 EMS142: .ASCIZ @DRIVE FAULT @ 
101 103233 042 104 126 EMS143: .ASCIZ a’ DVC'' (RMER2, BIT 7) a 
102 103261 125 116 125 EMS144: .ASCIZ @UNSAFE a 
103 103271 042 125 116 EMS145: .ASCIZ @°'UNS'' (RMER1, BIT 14) a 
104 103520 125 110 117 EMS146: .ASCIZ @SHOULD BE SET a 
105 105337 117 106 106 EMS147: .ASCIZ @OFFSET MODE @ 
106 103354 126 117 114 EMS150: .ASCIZ @VOLUME VALID a 
107 103372 117 115 EMS151: .ASC1Z ‘OM’ (RMDS, BIT 0) a 
108 103416 042 126 126 EMS152: .ASCIZ a@''VV"’ (RMDS, BIT 6) a 
109 103442 120 101 103 EMS153: .ASCIZ @PACK ACK COMMAND a 
110 103464 116 117 124 EMS154: .ASCIZ @NOT SET BY a 
111 1035 117 106 106 EMS155: .ASCIZ @OFFSET COMMAND a 
112 103520 116 117 124 EMS156: .ASCIZ @NOT RESET BY a 
113 103536 122 124 103 EMS157: .ASCIZ @RTC COMMAND a 
114 103553 122 117 120 EMS160: .ASCIZ @RIP COMMAND a 
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EMS161: 
2: 


EMS164: . 
EMS165: . 


EMS224: 


> ASC 
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@OF FSET SSSISTER (RMOF) @ 


3¢ 

@DURING RECALIBRATE a 

@I1S INTERMITTENT OR DRIVE DIDNT DROP ON @ 
@CYLINDER @ 

QUNEXPECTED @ 

@RECALIBRATE COMMAND @ 

@'‘ATA'' (RMDS, BIT15) @ 

@WHEN READING REGISTER @ 

@ERROR REGISTER #2, RMER2, a 
@NONRECOVERABLE @ 


@RECOVERABLE a 
@DATA a 

@DURING WRITE COMMAND @ 

@' ‘OPE’* (RMER2, BIT 13) a 

@IN WRITE PROTECT a 

@CAN NOT SET a 

@DIAGNOSTIC MODE ‘DMD’ (RMMR1, BIT 0) a 
@DURING DIAGNOSTIC MODE @ 

@INCORRECT a 

@' WRL'' (RMDS, BIT 11) @ 

@EXECUTED @ 

@WITH COMP ERROR SET @ 

a’ 'GO"' (RMCS1, BIT 0) a 

QWRITING @ 

@WAS RESET BY @ 

@PROGRAM INTERRUPT @ 

@WAS NOT GENERATED a 

@SEEK COMMAND @ 

@PROGRAM TIMEOUT a 

@DURING LOOK AHEAD TEST @ 

@LOOK AHEAD REGISTER,RMLA, a 

@SEARCH COMMAND @ 

@BAD SECTOR ERROR ‘BSE** (RMER2, BIT 15) a 
@A DATA TRANSFER COMMAND a 

@HEADER COMPARE INHIBIT ‘HCI'’ (RMOF, BIT 10) @ 
@NONEXISTENT MEMORY ‘NEM’ (RMCS2, BIT 11) @ 


c 
SoU L 
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1 105166 105 130 120 EH1:  .ASCIZ @EXPCTD RECEVDa 

2 105205 102 125 123 €H110: .ASCIZ @BUSAD | 

; 105214 040 122 115 €H111: .ASCIZ RMCS2 = RMCS1a 

5 105233 122 105 103 £H114: .ASCIZ @RECEVD SNGPRT DULPRTA 

6 105262 105 130 120 EH223: .ASCIZ @EXPCTD RECEVD DATAa 

7 105310 105 130 120 EH256: .ASCII @EXPCTD RECEVD RGSTR@<CRLF> 

: 105336 123 124 101 -ASCIZ @STATUS STATUS INDEX@ 
10 105364 107 104 101 €H336: .ASCIZ @GDADRS GDDATA BDADRS BDDATAa 

PR 2c et a a3 Wl ls 

° > 

13 105521 105 - 130 120 -ASCIZ @EXPCTD--RETEVD ~“BIT”~"ADRESS@ 
15 105560 122 115 105 §£H344: .ASCII @RMER1 STATUS HEADER FAILING@<CRLF> 
16 105620 137 137 137 ASCII @ 7. WORD BI Ta<CRLF> 
17 105656 105 130 120 ASCIZ @EXPCTB- RECEVB NUMBER POSITONA@ 

18 105716 105 130 120 EH35 ASCII @EXPCTD RECEVD@<CRLF> 
8 105735 074 103 122 .ASCIZ @<CRLF> RMLA RMLA RMOF @ 
21 105772 040 122 115 STSH1: .ASCII @ RMCS1 RMCS2  RMDS RMER1  RMER2@ 
22 106037 040 040 040 ASCIZ @ RMASA 
23 106047 040 122 115 STSH2: .ASCI] @ RMWC RMBA RMDA RMOF RMDCa@ 
24 106114 040 040 040 ASCIZ @ RMEC1  RMEC2@ 
25 106136 040 122 115 STSH3: .ASCIZ @ RMDA RMDC RMOF RML Aa 
26 106174 040 122 115 STSH4: .ASCIZ @ RMMR1 RMMR2~ RMDT RMSN@ 


— a FS oe ee meee eee ee ee 
a ES EEE SE ee ——es 


CZ7RMOBO RMOS/3/2 FCTNL 
ERROR MESSAGE STRINGS 
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EEE 


001140 


001140 


TST 3 


001142 
000000 
001176 


001176 
001142 


001140 


001142 
001142 


00134 
001342 


001376 
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000000 
000000 


001200 
001174 
001136 


001174 
001444 


001350 
001344 


901370 
001364 


ED353: 


STSD1: 
STSD2: 


STSD3: 
STSD4: 


$SGDDAT , SBDDAT ,0 
$BASE , 
$TMPO,$TMP1,0 


RMDTI,$TMP1,$TMP2,0 
$SGDDAT , SBDDAT , S$TMPO,0 


SGDADR , $GDDAT , SBDADR , $BDDAT , 0 


$GDDAT , SBDDAT , $TMPO ,STMP1 ,0 
$GDDAT , SBDDAT ,RMOF 0,0 


RMCS11,RMCS21,RMDSI ,RMER1] ,RMER2I, 
RMWC1,RMBAI ,RMDAI ,RMOF I ,RMDC I ,RMEC 
RMEC2 0 


iy 
RMDAI,RMDCI.RMOFI,RMLAI, 
RMMR11,RMMR21,RMDTI,RMSNI,O 


ONOWE WY 2 


SEQ 0296 
EF110 BYTE 0 
F111 -BYTE 0,9 
000 €F114: .BYTE 0,0.0 
000 €F336: .BYTE 0,0.0,0 
EF337: .BYTE 0,0,0.0.0 
000 STSF: -BYTE 0,0,0,0.0,0.9 
EVEN 


se en ee - -<- . ~ _- 


—————E EE 
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' 
2 106436 
3 106436 
4 107442 
5 
6 
7 110646 
8 110452 
9 111452 

10 

11 

12 111454 

13 111460 

14 1124 

15 

16 

17 

18 106436 

19 106436 

20 106437 

21 106440 

22 106456 

23 106474 

24 106526 

25 106553 

26 106607 

27 106660 

28 106704 

29 106737 

30 107007 

31 107057 

32 107117 

33 107170 

34 107244 

35 107301 

36 107330 

37 107365 

38 107416 

39 107461 

40 107543 

41 107604 

42 107645 

43 107700 

44 107766 

45 107767 

46 .110023 

4? 110057 

48 110074 

49 110131 

50 110155 

51 110200 

52 110235 

53 110244 

54 110275 

55 110321 

S56 110345 

57 110404 


000000 
177777 


000000 
177777 
106436 


oOo — tv —" SS  - 
eae oe oe 


OOOCCODOOCOVUWUINOL && 


RRRRORRRR 


000000 


000000 
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glee pete te Or 


SEQ 0299 


: STORAGE FOR GENERAL DATA TRANSFERRS 
BUFFER: 
BUFONE: .BLKW 258. 
BUFTWO: .BLKW 258. 
: STORAGE FOR MANUFACTURES 16 BIT MODE BAD SECTOR FILE 
MFGFIL: .WORD 9,0 :2 HEADER WORDS 
-BLKW 256. 3256. WORDS OF DATA 
. WORD -1 > TERMINATOR IF FILE IS FULL 
: STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE 
USRFIL: WORD 0,0 32 HEADER WORDS 
“BLKW 256. 7256. WORDS OF DATA 
. WORD -1 ; TERMINATOR IF FILE IS FULL 
=BUFFER 
HELP: 
-ASCII <CRLF> 
-ASCII <CRLF> 
eASCII @LIST OF TESTS@<CRLF> 
ASCII] 3 Qenem nnn -- 8 < CRLF D> 
-ASCII atl CONTROLLER ACCESS TEST@<CRLF> 
eASCII aT2 WRITE, READ ZEROS@<CRLF> 
eASCII aT3 WRITE, WRITE CHECK ZEROS@<CRLF> 
eASCII aT4 WRITE, WRITE CHECK ZEROS W/ WCE ERROR@<CRLF> 
eASCII aT5 WRITE, READ ONES@<CRLF> 
-ASCII aT6 WRITE, WRITE CHECK ONES@<CRLF> 
eASCII aT7 WRITE, WRITE CHECK ONES W/ WCE ERRORQ<CRLF> 
-ASCII a710 WRITE, WRITE CHECK MULTIPLE SECTORS@<CRLF> 
-ASCII aT11 WRITE, READ W/ IMPLIED SEEK@<CRLF> 
-ASCII aTl2 WRITE, WRITE CHECK W/ HEAD SWITCHINGoO<CRLF > 
eASCII a713 WRITE, WRITE CHECK W/ MID-TRANSFER SEEKa<CRLF> 
-ASCII aT14 WRITE, READ W/ HCE ERROR@<CRLF> 
ASCII aT15 WRITE, READ W/ HCI@<CRLF> 
-ASCII aT16 WRITE, READ W/ IVC ERROR@<CRLF> 
ASCII aT17 WRITE. READ W/ ABORT@<CRLF> | 
eASCII aT20 WRITE, READ EACH CURRENT LEVEL@<CRLF> 
ASCII aT21 WRITE.. WRITE CHECK W/ CURRENT LEVEL SWITCHING@<CRLF> 
ASCII atT22 WRITE, READ EARLY PEAK SHIFTa<CRLF> 
eASCII aT23 WRITE, READ MIXED PEAK SHIF Ta<CRLF> 
ASCII aT24 WRITE, READ EACH TRACK@<CRLF> 
-ASCII aT25 READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE@<CRLF> 
ASCII <CRLF> , 
-ASCII @OPERATIONAL SWITCH SETTINGS@<CRLF> 
ASCII] Qeewnr nnn nn a<CRLF> 
eASCII @SWITCH USE@<CRLF > 
ASCII] Omen rrr tte CRLF > 
ASCII a 15 HALT ON ERROR@<CRLF > 
ASCII] a 14 LOOP ON TESTa@<CRLF> 
Asi @ % INHIBIT ERROR TYPEOUTS@<CRLF> 
-ASCII a 12 a<CRLF> 
ASCII OF 1 INHIBIT I TERATIONS@<CRLF > i 
ASCII a 10 BELL ON ERROR@<CRLF> 
eASCII a y LOOP ON ERRORA@<CRLF> 
ASCII a 8 LOOP ON TEST IN SWR<7:0>a@<CRLF > 
ASCII a 7 ™N128a<CRLF> } 


Se 
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1104 040 
110433 040 
110446 040 
110461 040 
110473 040 
119505 040 

000200 
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040 





—~—NMWW OOo 


T a@<CRLF > 
TN32@<CRLF > 
™N16@<CRLF > 
TN8@<CRLF > 
TN4@<CRLF >. 
TN2a@<CRLF > 


SEQ 0300 


rE scene cunts 


/_: 
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ABLE 


SYMBOL 7 
176700 


ACKSTS 053432 


~w— 


g 


BSE = 
BUFFER 
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000 
071746 
0000 


00000 
120254 
00000 


106436 


106436 


= 1 
007520 
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020000 
000109 


077506 


SEQ 030% 


cette 
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3553 


Ooo 
Ww 
wn 
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077121 


EMTi2 
EMT120 
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073706 
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073716 


074570 


mee wr ee eee ee 


EMT 203 


EMT 265 


074602 


075334 


EMT 347 


075354 
075366 


076406 


SEQ 040; 
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076420 
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904000 
000 


000074 


= 
2 
wn ~ 
" neunu not 


2333 
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_— 
wun 


= 000076 


000200 
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000022 
000022 
00 


001462 
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SEQ 0505 
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Sw04 
RMWCI = 001340 Sw05 
RMwCO 001414 Sw06 
RQA = 100000 SWwO7 
RQB = =_ 940000 Sw08 
RTC = 000016 SwO09 
Kh =%000006 Sw 
R7 =%000007 Sw10 
SADMSK= 000377 Swi] 
SAVREG= 104414 SW12 
SA1 = 1 Sw13 
SA16 = 000020 Sw14 
SA2 = 000002 Sw15 
wh 8 Sw 
SAB == 000010 Sw3 
| SC = 100000 Sw4 
| SCOPE = Sw5 
| SCTMSG 070426 Sw6 
| SCTMSK= 003700 Sw? 
| scO = 000100 SW8 
scl = 000200 Sw9 
Sc2 = 0004 SYSTAT 
Sc3. = 001000 TADMSK 
S¢4 = =: 002000 TAG 
SEARCH= 000030 TAGADR 
SECERR 044710 TAP 
= A 
SEKSTS 051174 TA16 
T 037262 TA2 
T2 067550 TAS 
SIZCLK 043550 TA8 
SKI = 04 TBITVE 
T= 020024 TIMOUT 
STACK = 001100 TKVEC 
STANDA 007020 TPVEC 
START 005432 TRAPVE 
START1 005422 R 
START2 005436 TRTVEC 
STCDRV 062172 
STKLMT= 177774 TSTNMB 
STOP 61 TSTPRP 
STSD1 106326 TSTQUE 
STSD2 106344 TST1 
STSDS =©106 TST10 
STSD4 106376 TST11 
STSF 106427 TST12 
STSH1 105772 TST15 
| STSH2 10604 TST14 
| STSH3 106136 TST15 
| §STSH4 © 106174 TST16 
SwR 001154 TST17 
SWREG 000176 TST2 
S = 000001 TST20 
= 000001 TST21 
SwO1 = 000002 TST22 
SWO2 = 000004 TST23 
| SWwOS = 000010 TST24 
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000020 


TST25 035624 
TST3 011274 
TST4 012252 
TSTS 013446 
TST6 014454 
TST? 015432 
TYPBN = 104406 
TYPDS = 104405 
TYPE = 104401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 


UPE = 020000 

= 040000 
USRFIL 111454 
U0 = 000001 
U1 = 000002 
U2 = 000004 
VV = 000100 
WC = 000040 
wcD = 000050 
WCE = 040000 
WCEHI = 010000 
WCELO = 004000 
WCF = 000040 
WCH = 000052 
WD = 000060 
WH = 000062 
WLE = 004000 
WRL = 004000 
xS1Z 006464 
XXDP Ol ae 


$SCNILG 
SCNTLU 


SMA 
$SMADR 5 


© 

© 

_— 
WWWAWNANAANWOPOP UH)" 
ron S OO SS 
HMO LOOM NOWO 


001264 


$TKQEN= 307 
$TKQIN 066302 


SEQ 0304 


| G 
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wo 


SYMBOL TABLE 
TMP4 1204 $TRPAD 067746 $TYPEX 064052 $VECT2 001274 
dhe eta sth = M006 STSTM 001104 $TYPOC 063316 SxOFF = 0600023 
$TKS 001160 t 0011766 STSTNM 001116 $TYPON 063332 $xXON = 000021 
STKSRV 066360 S$TPFLG 001173 $TTYIN 067476 $TYPOS 063272 $XTSTR 064076 
$TMPO 9001174 TPS 001164 $TYPBN 062772 SUNIT 001234 $$GET4= 000000 
 $T™MP1 001176 STRAP 067674 $TYPDS 063046 SUNITM 001110 $$SwOB= 000026 
S™MP2 901200 $TRAP2 067734 $TYPE 063520 ~$USWR = 001246 SOFILL 063515 
' $tmP3 007202 $TRP = 000016 $TYPEC 063732 $VECT1 001272 $x = 001100 
. ABS. 112462 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 62208 WORDS ( 243 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 
C7RMOB.BIC,CZ2RMOB/C=CZRMOB.DOC,CZ7RMOB,SYSMAC/M 


ee - - we eee 22> «ee = ~. 


a - - 


a ee 


A etter 


CZ7RMOBO RMOS5S/3/2 FCTNL TST 3$ 
CROSS REFERENCE 


SEGE TS 
$ESWO8 


SOF ILL 


14-20 
42-1 


TABLE 


14-204 


39-14 


38-1* 


4i-1* ° 


13-2 
13-F 81 


13-950 
13-945» 


11-28 
44-104 


42=1 
4o=1 
42-1. 


“Genie 


42-14 


10-25 


11-62 
44-114 
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(CREF vO1=05 ) 


6-0 
10-23 


11-100 
44-126 


13-322 
13-K05 


3 
36-112* 


6-0 


12-25 
44-134 


13-497 
13=L50 


6-0 


12-68 
44-154 


6-04 


14-20 
{5-1 


42-1 
42-1 
42-1 
42-14 


13-790 
13-046 


6-0" 


41-1 


45-1 


SEQ 0450¢8 

42-1 42-1 
42>) 42-1 
42-1 42-1 
42-14 42-14 
13-969 13-:20 
20-36 21-30 
13-B77* 135-D30* 
24-47 24-48* 
25-65* 5-67 
25-170* 25-171* 
25-284* 25-285* 
25-417* 25-418" 
26-94 26-120* 
29-88* * 
31-32 31-42" 
31-115" 31-124" 
1 35~82* 33-103 
34-19 34-28" 
34-94* 34-103 
35-204" 35-240 
35-470" 35-4835~« 
60-10 60-11 

6-08 6-04 
41-1 41-1 
45-1 45-1 


—— ee ee ee ere 
LF LL LL LL LL — 
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CROSS REFERENCE TABLE (CREF vO1-05 ) 


SDDw4 6-04 
$DDw5S 6-04 
$DDw6 6-0 
$DDw7 6-04 
SDEVCT 6-04 ‘ 
$DE VM 6-04 10-67* 10-78 10-117% 10=121* 11-65 11=70* 11=+97* 
_ $DOAGN 14-20 14-20 14-204 
$DTBL 39-1 39-14 
| $ENDAD 5-5 10-28 14-204 43-1 
| $ENDCT 10-23 14-204 
| SENULL 14-204 
 SENV 6-04 10-28 41-1 43-1 49-1 49-1 
| SENVM 6-04 10-23 10-71 41-1 41-1 49-1 
fE OP 13-30 14-204 14-29 d 
SEOPCT 10-23* 14-20 14-204 
SEOSP 14-94 
SERFLG 6-08 42-1 42-1 42-1 42-1 42-1 42-1* 43-1 
6-04 10-23* 42- 42-1 42-1 42-1* 
SERROR 10-23 43-14 
SERRPC 6-04 43-1 43-1 43-1 43-1* 43-1* 44-54 
SERRTB 8&-OF 44-72 
SERTTL 6-08 14-20 14-20 14-20* . 43-1 43-1 43-1* 
SESCAP 6-04 10-235* 42-1* 43-1 43-1 43-1 43-1 
SE TABL 6-04 
SETEND 5-8 6-OF 
SF ATAL 6-O0F 49-1* 
SFFLG 49-1 49-14 49-1* 49-1* 49-1* 
SFILLC 6-04 41-1 41-1 41-1 
SFILLS 6-04 41-1 41-1 
$GDADR 6-04 13-476* 13-479 13-948* 13-951 18-83* 60-8 
$GDDAT 6-04 13-463* 13-464* 13-474% 13-475* 13-483 13-933* 13-934 
13-B50* 13-B65* 13-B78* 13-D26* 13-D88* 13-F11* 135-F12* 13-F70* 
24-49% 24-50% 24-51 24-67* 24-68% 24-74% 24-76% 24-88% 
24-150* 24-151* 25-42% 25-55% 25-66% -67 25-79% 25-84% 
25-139%* 25-142 25-154*%* 25-155* 25-158 25-165* 26-16% 26-23% 
26-91* 26-94 26-104* 26-117* 26-122 26-134* 26-135* 26-156* 
29-36% 29-47% 29-63% 29-68 29-87% 29-101% 29-102% 29-129 
29=210* 29-211*% 31-31% 31-32 31-41% 31-57% 31-59 31-68* 
31-126* 31-127 32-25% 32-26% 32-39% 32-40% 32-58% 32-59% 
32-114" 32-115% 33-33% 33-34% 33-47% 33-48% 33-634 33-64% 
335-132* 33-133* 33-157* 33-158* 33-173% 33-175% 33-187* 33-188* 
23-252* 33-2535* 33-268* 33-269* 34-18% 34-19 34-30* 34-51 
35-29% 35-30% 35-45% 35-46% 35-65% 35-66% 35-85% 35-86% 
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60-6 60-8 60-10 60-11 
$GET42 12-34 12-43 14-204 
$GT42P 14-20 14-204 
$GTSWR 45-14 47-1 47-1 
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SILL 48-1 48-1 48-14 
SINTAG 6-08 45-1 45-1 45-1 45-1 45-1* 
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oe Lt Lidl Lindt Lint Lind Lindt Ladd Lindl Lidl Ladd Ladd Led Lod Lin Ln Lo of 8 1 1 eee 
SS ESE EMC SC CC EE re ee eee 
a2 RRRAaRRRRAR te RBRRRRRRRR tt 2 z 
CO NM CURL Re WH wood MROR OO Oe OOMR AMR MR 
WO or CUCU MY) Pn WRB GOCDOO ss te sete VVVV HAAAC: 
ese tet ee_ cee iestreeestpeertrnereg eee @ eee t.e 8 be 8 
MNO ROD I) I) 9) 8) 9) 8) 8) 9) 8) BB) I) PY) 
ek Sek seek eel eel sel seek see feel seed el eel seed gel eel el eel eel tel soe eel el see ed oe ee el ee ee ee ee ee 
RRR 2 z= 8 RRR RRRR RFR 
MM MR CUR HK NOTOURMOMrOvwo zz S"..2 MOAanonm s.r 
De ee CU CUM) ATLA ODOR. I. COCO OD *etereV VU VIAAAC: 
orreteet])oeoettetet]etttttttt!_t|toee#e#ebet tt t6tt 
MMR SOND ID PO i) 9) 9 8) 8) 8) 8) 9) 9) 9) 8) 8) 8) A) BT) 
SS EE CC CC CC CL LL Ee 
R t R zz R R 
CU MK CUDOMOTDOAMOBOMIR A OOM Oe NAMOAWMOCUR © 
De — CU CUMIN TATU WO WORARLAR.OOOOO ¢* oe te te te VV V HAA AS 
rtier_tveetTorettttt_ettttt_ett_t_t_t_ee#e#t#tttt_=t4ettt 
a Ll Ln Lat Lilt Lint Lcd Li Ln Ln Lif Ln Lo Lo Le 1 a Le lo 1 le ee eee eee 
SECC LE LL LC CC CC CC ee er ee ee ee er eee 
2  BRRRARBRBRBR BW BRRBRRRR R2RRrm 
SP NCP TT TIO OOR. PB. COCO etereV VV HAAG. 
Bera CeB ew APaBRRKRRPERHKEAAPPRPER STR R SS 
BONO IID 8) 8) 8) A) PY) 
eee eS Ee re Ee ee er eee ee 
+ 3 2 R = R 2 ®& 
On — — CUCU MIPIM) TT ATLA OWR_AR._BR. OOCOOR ¢* 8+ ce te te VV HUAAA 
RaVFwRwae ec RtGesPeCPraeevrretee FERRERS Rr Se eee eS 
MOND ID BD ND 8) A) A) A) A) PB) 
CS EL SE Ee ee ee 


SEQ 0515 


o 
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CROSS REFERENCE TABLE (CREF vO1-05 ) 
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e323, 88  SSZSSRISALB OSI PAyAOSABAe A dayde 
RAGKAACRR RRR R SAUER ARREARS RSE 
shahehehehenshehenehenenenenenenenenennennennen nnn mmm MMe 
SRIAT Sc ogoegsInheIBPIBAIongiAARnIBS- 
aoe MAS RK OMRMONTOTOAy t= ge 
Miceachasennecaaaeneenaeenn: Tithntod 
rhennnhnnnnenenennnnnininnineninenen ene meee eeemmmemenn 
22 2 & 2 2 ay 
SIAE hoa ISAsaceTSSs SSS SBN VO TSMOSRN SSS 
RUcKRARERRSSS ARRMRMER RRR ERE A ARERR 
chahehohahahhenennen ene wy n ene EEE EN 
22 RRR RRB BB = Ns aE 2 & $A- 
BRoSSNSAISOSUARTR SIS SION TO GEMS RRA T OSS 
ONS eS 2 VOOWEY ODOT ET ol ad ° q Se 
Lhehshchhahshchahshsheiehehsheheheebehaheheh shh aohshohshen 
2» ®22® & at s s 3 _& 
BoFSSIn ve Magn SS PSPs Qro- VOSSeesaase SS 
TOSSES CSET T TTT ETET TPIT TTT TETETT TT TET 
0 LLC ELL LLL LCL LL MOLO L LLKK 
= 222 & = 2 2 3S 
grokgnssRavAsSe eoASay SL IK TORSO SSSR Se 
TP OTT PPT TTTT TTT TTT EP LTT EET 
KK Ke eee EE ee ee Ce SE SS LL Ee rr ee ee 
SSeS eA WMeArTOLSS Va NAS SRE BSC EASA OSS 
eRe TTP ES SET TT POE ETT PTET TITER TTI TTT eS 
COR tn Tatra cal cal aalcalndlnalaalealcatcalcalcalacalcalaalaalaalaataalaataalaa 
ek mek mek meek mee meek ee se ee ee ee ce ee ee ee ee ee ee ce ee ee ee 
& 22 ae =f) a = Fun 3 
srodsessasonder sesewar sess aR one a SSS 
TPeTTT PTT ET TOPE TETE POLE TETEETTET TLE 
Pek meek ae cea ae eel seek eet eek seek eh ee ee ced mee eh oe eee ee ee ee co cea oe cee, oe oe, oe ee oe ee ee ee el eee eae 
Sr Aaotas Ros ISOLA E AES RS STEN RS EMERT SSN 
nae (tests ttt rit ' 3 
lh a a a ala i a ll ll Ll Lal Ll Lill Ll Ll Ll Ll Le Le Ll La © 
i eee eel seen coe seek ieee eel eee ee eel eel mel eel eel eee see eel oe el ee ee mee eel eel el oe el el el cel el el ee se ce el 
SADA IAN AROS RARE RNA Se ee ON ELEN eee SS Y 
CBIR MRCS ELS USPS NTS Oe epee SeORaT SSE 
#ttég ‘#t+teteepe td t t ft ee if tt? 
PIII IES III PI) BR) RO) 
ee see cee cee el cl ol el nel el el el eel el el ce eel eee mel oe ee el el oe ee el ee ee ed el ee ee el ee el el el 
be 3 2 ee & x haa 
Pamed ser Sc Btn Saiy Sake SBnan garg len nese 
4 rrarTPriTTrrrr ty i TTT eer etTi + PTT tT TTT 
PAM AIA IA I IT PIT) IOI) AT) BT) I) i) I) I) I) I) I) I) I) YD) YY) PY 
ek el el el el el el el el el lel ee ed el ed el el ee el el ee ee oe ed el ed ee ee el ee ee ll 


MBI soRABISFI33u— BAA Ingo FS BSvo0 otic 
CE OO DPV SOWWE LOOT EO Oe YEE $35 eee 
MPM MM ORATION BI) I) 8) BB) 
SO I EF FS LE CC CCE 
22 Bg 2 22 22 RRR 
BFK A SAMOMDO~ 2 0OSSHRA OTA SSLARN OMKROLRARQY 
C7 POF PPy oQumer VOTE ITO DONNIE ee eeOoe dae eM 
Prat val valvalvalcatvalvalralralvalvat al calvat eal al cabral alvalnal alcatel alcatel alcatel alata atealtares 
el cl cel el cel cel el eel el ool el soe el ce el cl el el el oe ce ee el el eel ce oe ce el oe eee ee el el el ee el oe eel 
ca R zz R 
RSngmIgIr Ids SSaQHar Ss rgesean Ver snr ssa 
oy POT OPPOAwwE UOTE SONY ORES 2eoo8 dan 
Al #1000. 4.000010). 28) al el al al al al al al al al al. al al. al. als alae elas ala al ala) 
OL ES SE EEL ES 


42-1 43-1 


* 2-1 


4-581 4-618 4-636 4-670 4-742 4-760 


4-562 


4=-739H 26-28 


Ne SL 
a ee 8 ee ~ -— 


CZ7RMOBO RMO5/3/2 FCTNL 


TO5 


SELF 


—~ I-4 ee Mee Ieee Ieee] 


— — 
— —s 3 — — > 3 
VIFinNM —O 


3 
4-4844 4-492 
44-4844 4-491 
4-4844 4-561 
4-4844 4-560 
4-4844 64-537 
4~-4844 4-536 
16-304 17-26 
4-535 4-557 
4-490 4-534 
4-533 4-555 
4-554 4-568 
4-553 4-567 
4-552 4-566 
23-18 
15-196 35-320 
15-141 35-426 
15-87 
10-71 23-24 
11=24 11-48 
50-374 
44-99% 44-102 
44-109* 44-112 
13-A79 = 13-A85 
16-284 62-24 
13-98 13-175 
13-:26 13-;35 
13-€40 8 §=13-C52 
13-K19 13-K71 
13-175 135-426* 
13-<95 ~BO 
10-14* 10-17* 
44-86* 44-92* 
43-1 43-1 
22-8* 22-10 
22-9* 22-15* 
10-84 12-58 
31-224 
12-24 
13-640 #£13-<95 
S0-134 
50-144 
50-154 
50-164 
50-174 
50-194 


~m 


50-394 


44-117 


44-115* 


4-577 4-632 
4-614 4-631 
4-597 4-613 
4-596 4-612 
4-573 = 4=595 
4-572 4 =5 94 
4-593 4-609 
4-570 4-608 
4-607 4-624 
4-623 4-642 
4-622 4-641 
4-621 4-640 
44-1614 
44-1628 
13-B78  13-D35 
13-245 13-336 
13-<95 -13-=16 
13-€56x 13-D03 
13-164 13-16 
13-474 13-476 
13-£10  13-F39 
11-27 
44-96% 44-100 
22-16 =. 23-13 
13-146 13-145 


13-037 


13-387 
13-=63 
13-E10 

3-M90 


1 
13-491* 


15-114 


44-105» 


13-M90 


ee eee 


. » 
TST MACRO V04.00 4-APR-81 01:15:59 PAGE S-9 
| “ROSS REFERENCE TABLE (CREF VO1-05 ) 


13-D97 
13-511 


: 
135-611 
15-146 


44-116* 


13-038 


44-1638 


18-174 


4-727 


SEQ 0514 

42-1 43-1 
4-755 43-1 
4-754 15-165 
1$=73 42-1 
18-33 18-90 
13-804 13-858 
13-a70* 135-A15 
13-146 8 13-167 
13-948 13-965 
13-009 15-038 


= ee ee ee ee ee — <<< 


CZ7RMOBO RMO5/3/2 FCTINL TST 3 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


_ CNSLOS9 
CNTCLR 
COMMA 
CONT 
CPSAVE 
CR 
CRLF 


DSWR 
DTASTS 


12-14 


16-222 
10-23 

10-23* 
35-492 


13-E74 
25-255 


31-125 


35-279 


20-43 
31-115 


16-222 
25-487 


60-104 


D9 
4-APR-81 01:15:59 PAGE S-10 


25-469 


43-1* 


33-51 


34-30 


Sr re me er ne ee we ee ew 


25-489 


35-43 


29-195 


35-174 


24-68 
33-133 


25-467 


35-413 


35-466 


35-416 


35-469 


13-546 


13-636 
13->21 
135-E06 
13-M86 


36-89 


51-85 


SEQ 03515 


13-759 

Lh gt 4 
13-F 68 
13-N89 


36-97 


9 
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CROSS REFERENCE TABLE (CREF VOQ1-05 ) 


E 


SEQ 0516 


CZ7RMOBO RMOS/3/2 FCTNi TST 3 


._— eee ee 


56-24 


8-516 
8-690 


56-104 





57-108 


8-690 


—— 


LL 


F 9 
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CROSS REFERENCE TABLE (CREF VO1-05 ) SEO 0317 


FHI11 55-5 59-34 


EH223 55-8 *59-64 

EH256 55-9 59-74 

EH336 855-11 59-104 

FH337 0 8=65§5=12 59-114 

EH344 5$5=-13 59-154 

FH353 8 55-15 59-184 

FHT? 8-3 8-6 8-9 R=-12 8-15 8-18 8-24 8-27 8-30 8-33 8-36 8-39 8-42 8-45 
8-48 8-51 8-54 8-57 8-60 8-63 8-6 8-69 8-72 8-75 8-78 8-81 8-84 8-87 
8- 8-93 8-96 8-99 8-102 -105 8- 8-111 -114 8-117 8-120 8-123 8-126 8-130 
8-133 8-136 8-139 8-142 8-146 8-150 8-154 8-160 8-163 8-166 8-169 8-172 8-175 8-178 
8-182 8-185 8-188 8-191 8-194 8-197 8-200 8-203 8-206 8-209 8-212 8-215 8-218 8-236 


EHTi10 8-221 55-44 


EMS102 54-177 54-178 54-181 54-182 54-183 54-184 54-186 54-187 54-188 54-189 54-234 54-235 58-684 
EMS103 54-56' 54-57 54-135 54-141 54-196 54-197 54-198 54-203 54-204 54-205 54-205 54-207 54-208 54-209 


MS104 54-136 54-180 54-205 58-704 


EMS106 54-212 54-232 58-724 . . 
EMS11 54-12 54-15 54-16 54-17 54-18 «54-19 54-20 54-21 94-22, 54-25 54-26 54-25 K-26 54-27 


EMS115 54-44 54-45 54-48 54-50 54-51 54-52 54-54 54-55 54-60 54-61 54-63 54-66 54-67 54-70 
54-73 54-77 54-107 54-108 54-109 54-110 54-136 $4-137 54-139 54-140 54-142 54-179 54-182 54-183 
54-185 54-186 54-187 54-188 54-189 54-190 54-192 54-193 54-194 54-195 54-201 54-205 54-221 = 54-222 


EMS116 54-74 54-77 54-191 54-225 58-804 


EMS117 54-77 54-143 554-148 = 94-1469 54-178 56-185 = 54=201 = 542225 = 54-228 = 54-229 54-230 = 54-257 58-814 
EMS12 = 54-12 58-128 


a _ — Le ee ee 


CZRMOBO RMO5S/3/2 FCTNL TST 3 


CROSS REFERENCE TABLE (CREF v01-05 ) 


EMS120 
EMS121 
EMS122 
EMS1253 
eMS124 
EMS125 


| EMS126 
 EMS127 


' —MS13 


EMS130 


_ E—MS131 


EMS132 


EMS1533 


EMS177 


54-78 
54-79 


——— ee eee 


58-1304 


54-97 
58-844 
54-89 
54-91 
54-102 
54-105 


54-216 
54-106 


54-113 
54-54 


54-123 


58-1114 


54-115 


58-1154 


54-116 
54-60 
54-117 
54-71 
54-68 


54-125 


54-218 


54-99 


54-102 


58-1144 


54-61 
54-143 


54-72 
54-125 


54-126 


54-219 


58-834 
54-90 


58-864 
58-874 


58-1104 
54-1753 


54-62 
58-1174 


54-172 
54-124 


58-1244 


58-1284 


54-91 


58-1024 
58-1034 


58-1054 
54-111 


58-1074 
54-134 


58-1124 


54-63 


54-196 
54-168 


54-92 


54-133 


54-134 


54-182 


54-64 


54-197 
54-169 


G9 
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54-93 


54-86 
54-100 


54-86 
54-95 


54-106 
54-192 
54-122 
54-140 


54-138 


54-185 


j 
*5 4294 


54-87 
54=101 


54-87 


54-96 

58-964 
58-984 
$4-137 
54-184 


54-182 


54-194 


54-66 


58-1204 


§4-175 


54-95 


54-88 
54-102 


54-125 
54-126 


54-187 
54-202 


54-183 


54-195 


54-67 


54-235 


54-96 


54-89 
54-103 


58-934 
58-944 


54-188 
54-205 


54-194 


54-223 


54-68 


58-1228 


54-98 


54-90 
54-104 


54-793 


58-1014 


54-195 


58-1084 


54-69 


54-126 


54-91 
54-105 


54-222 


54-225 


54-70 


SEQ 0516 


58-854 


54-92 
54-106 


58-998 


54-234 


54-71 


— 


9 
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CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0319 


EMS2 54-4 54-5 58-44 
EMS2O 3 54-34 54-58 54-110 54-118 54-119 54-120 54-121 548212 548232 54-238 ‘58-184 


EMS202 54-122 54-130 54-131 54-132 54-133 54-134 54-1356 54-180 58-1334 

EMS203 54-122 54-130 54-131 54-132 54-133 9054-1760 54-175 54-176) 54-237 0 581344 
EMS204 54-131 58-1354 | 

MS205 54-55 54-142 54-179 54-233 58-1364 

MS206 54-55 54-142 54-170 54-179 54-233 58-1374 

MS207 54-168 54-170 58-1384 


EMS2 
EMS210 54-169 54-170 54-173 58-1594 
EMS212 54-171 54-172 58-1414 


EMS221 54-231 54-238 58-1484 


EMS25 54-19 54-115 58-234 
EMS26 54-20 54-116 54-173 58-244 
EMS27 54-16 54-19 54-20 54-115 54-116 54-1735 58-254 


EMSSO 54-17 54-18 54-21 54-22 54-25 54-24 54-25 54-26 54-27 54-28 54-29 54-30 54-31 54-3¢ 
54-33 54-43 ah 54-130 54-1351 54-132 9654-133 56-1440 54-145 = 54-146 = 54-147 54-174 = 54-175 54-176 


EMS31 54-21 54-146 54-207 54-208 58-274 


MS34 54-24 = 54-225 54-226 §9=54-227 = 58-304 
EMS36 54-26 = 54-213 54-214 954-215 = 58-324 


EMS46 386 554-43 54-58” =—s 594-120) = 54-145 = 54-177 54-185 = 54-199 = 54-201 


5 a 
FMS47 =: §4- 37 54-44 $4-45 54-52 54-60 54-61 54-66 $4-117 5 8 54-147 54-186 54-187 54-188 54-192 


EMS5O 54-46 54-48 54-64 54-70 54-132 54-135 54-75 54-141 54-181 54-185 54-189 54-2 = 54-201) = 54-221 


EMSS1T 54-48 54-55 54-70 54-130 54-139 954-142 954-179) 54-189 = 54-221 = 58-434 
EMS52 54-55 54-142 554-143 54-148 = 54-149 56-178 3=— 54-179 54-185 54-201 = 54-228 3=— 54-229 54-230 = 54-251 54-255 


ee ee ee eee ee eee Se rms ee ee em + ee ee es 





CZ7RMOBO RMOS/3/2 FCTNL TST 3 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


EMS53 54-37 
54-181 
$4-204 

EMSSSG 54-226 

EMS5S 54-227 

EMS56 654-50 
54-223 

EMS5S7 54-190 
54-204 
§4=-223 

EMS6 54-6 

EMS60 54-224 

EMS61 54-224 

EMS62 54-224 

EMS63 54-42 

EMS64 54-8 

EMS65 54-41 

EMS66 54-34 

EMS67 54-43 

EMS7 £4-10 

EMS 70 54-48 
54-221 

EMS71 54-51 

EMS72 54-36 
54-139 

EMS73 54-49 

EMS74 54-69 

EMS75 54-35 

EMS76 = 54-35 

EMS77 54-38 

EMT1 8-3 

EMT10 8-24 

EMT100 8-197 

EMT101 8-200 

EMT102 8-203 

EMT103 8-206 

EMT104 8-209 

EMT105 8-212 

EMT106 8-215 

EMT107 8-218 

EMT11 8-27 

EMT110 8-221 

EMT111 8-224 

EMT112 8-227 

EMT115 8-230 

EMT114 8-233 

EMT115 8-236 

EMT116 8-239 

EMT117 8-242 

EMT12 8-30 

EMT120 8-245 

EMT121 8-248 

EMT122 8-251 

EMT12 8-254 

EMT124 8=257 

EMT125 8-260 

EMT126 8-263 


A A TT 


54-38 
54-182 


54-39 
54-184 
54-207 


54-148 


54-40 
54-186 
54-216 


58-5354 
54-144 


54-198 


54-67 


54-195 
54-209 


54-46 
54-191 
54-220 


54-119 


54-196 
54-210 


- 2 
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54-47 


54-222 
54-225 


54-62 


54-64 
54-194 


54-178 


54-199 
54-214 


54-52 
54-139 
54-63 
58-604 
54-254 


58-654 


54-65 
§4-195 


54-182 


54-200 
54-215 


54-54 
54-182 


54-108 
54-255 


54-73 
54-200 


54-183 


54-201 
54-220 


58-574 
54-189 


54-109 
58-614 


54-140 
$4=202 


54-194 


54-202 
54-221 


54-194 


54-134 


SEQ 0320 


54-141 
54-203 


54-195 


54-203 
54-222 


54-205 


54-135 


——— 
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CROSS REFERENCE TABLE (CREF vO1-05 ) 


EMT127 8668-266 §854-894 


EMT162 8-347 54-1164 
EMT163 54-1174 
EMT164 8-354 54-1184 


EMT176 «= 8 54-12 
EMT177 54-1294 
MT2 54-44 


rm 
2 
— 
S 
Oo 
' 
WW 
Oo 
Ww 
Ww 
~~ 
! 
a 
Ln 
— 
XR 


MT 8-402 54-1344 
EMT205 8-405 54-1554 
8-408 54-1 


cL 
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K 9 
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_ CROSS REFERENCE TABLE (CREF vO1-05 > 


EMT270 
EMT271 
EMT 272 


54-1384 
54-1394 


54-1494 


54-214 


54-224 


54-1684 


em ee es ee ee ee ee —-: 


/ CZRMOBO RMOS/3/2 FCTNL IST 3 
CROSS REFERENCE TABLE (CREF VvO1-05 ) 


| EMT273 





EMT 354 


54-1894 
54-1904 


54-2378 
54-2384 


54-2244 
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f ee EEE ee 
-—--— 


M 9 
_ CZRMOBO RMOS/3/2 FCTNL TST 3 MACRO VO04.00 4=-APR=81 01:15:59 PAGE S=-19 


_ CROSS REFERENCE TABLE (CREF vO1-05 ) SEQ 9324 

8-90 54-328 

8-93 Ss- 

B~12 54 

8-96 54-348 

8-99 54-354 

8-102 54-364 

8-105 54-374 

8-108 54-384 


8-15 54-74 
8-120 54-424 
8-123 54-434 


8-1 54-478 
8-139 54-484 

8-142 54-494 

8-18 54-84 

8-146 54-504 

8-150 54-514 

8-154 54-52# 

54-534 
8-160 54-544 

8-163 54-554 


8-21 54-94 
8-172 54-584 
8-175 54-594 


8-185 54-624 
8-188 54-634 

8-191 54-644 
8-1 54-654 

4-4844 10-23" 10-23 

53-1444 


44-48% 44-49% 44-52 44-57 44-64 44-1604 


4-4844 10-23 10-23* 10-23* 10-25% 10-26* 15-5 13-5 13-6* 13-7* 13-20*  13-20* i" 13-24% 


20-35 20-35 20-39* 20-40* 20-70% 20-70% 21-29 21-29 21-53* 21-34% 8 21-59* 21-59% ce-5 
22-6* 22-/* eamiz® ¢e~eue ¢e-ei*  ¢5~9 23-9 235-108 23-11% 25-35% 23-75% 28-20 28-20 28-21* 
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44-39 44-1704 
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35-348 
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16-58 


29-195 
35-533 


29-208 


16-363 


32-37 
36-55 


33-92 
51-67 
51-81 


16-384 


32-40 
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33-68 
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33-145 
36-45 
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60-14 


18-352 





SEQ 0342 


H 10 


MACRO V04.00 4=-APR-81 01:15:59 PAGE S-27 


“ROSS REFERENCE TABLE (CREF vO1-05 ) 


CZ7RMOBO RMOS/3/2 FCTINL TST 3 


* eee 
- nN N NM OM) oO 
ARS tt. rN RM PA 
> + A wr Ww i oO 
7 eh ’ a. rir it 
Qerunn NANA) nN NN NINN 
wat ala’ ree = = ee =F = =— = = 
A KWo ROO 
Wee wr Ww * 
Pian es¥g 8 RESB G8 
st tT TTT T a> » ine : 
PERS ee MO Nalvalval aval valve 
CUM eee = =~ ee = = = 
2: even Sts 
A@d2 recor 8 6S FORA Os 
oy Pie Pe Wor PY 
AmMnw MANY NIN ala NNN alae! 
CUNY FE = = = = rer 
* ** « 
229 MNMO oe RASR Soe 
NOW N AQ MO mM Ww a 
re® ai TEUT a red rit 
AMM MINIM) nM) eal ala’) NINN) 
CUSTER eee = — =e = Fr 
oO ee ~ Ww Saw 
mC Wee - 
phan gh sae) a a Se 
PRS? ' Mmm) Mme WwW MMMM) NN 
CUMIN WO eee ee mM ree ont eel aed 
nA a nN co owe 
MCrk. Oo ™N muy ww 
“Sin Anon OMe NH One O- 0 
Tritt Tete Sivii keke 6S Ez 
wenn’ MMMM OMM |) A Mmmm MMM 
CURRIE Serer Oem M cee wee sell oe -— 
AO © Mow AWnd 
MUNWO Val — wr 
ec WOM wD In. et 
pea Tete 20% 3. Seat Tht 
Sern MMMM OMM Ww MMMM O MMM 
CUMIN) cee OSC |! Se ee ce se el oe oe 
oO oo- Mm Oem ONO | 
ronw - me Me 
Saumwo AvsteR NON WH mm — CUOOR wr 00 sr CU 
ee her Tats Seay PETTITT Tt | 
WMD O MMMM WWMM Mm MMMM OMNM 
NPY eee Meee ere KK Oe Ke ; 
* x««*« « ' 
MO —OMA wee BD OO DN AT IAL. OO 
Me OW NO-—WATOUO YN MORE KK MONM 
rere Tavirsts of TTrititirld | 
WM TiN Oo MMMMONMN mM MMM NYA OMNI) O 
CUMS ROM ore KK Yee |! oe ee ee OY ee OU | 
= x « « = * 
wRwrow Nu Oo —COOCORMs WOMMWN wv 
M— OW O vr wv -Or-OOO-— M OVNe—-ARAKwrewr Owes =) 
Trees . 2. Pi eseeee 2. Steerer ey T | 
Cr dal ake) ma M) MM MMM UIANIM) NM) MMMM) OMIM SO - 
CURRIER - = eee KK NC —- |S ce er i ee OU —~ 
+ « «* x * * 
Ww 00 00 ~r mM COM) OS OX CUR. 00 — WNOD0 WRN wa | 
MOn-W ST Mme me sp ORR RM AMO MBM MOO EE IA eR eM ™N 
pew Toe TTP e Tee PTS EC YT TT 1 
OAMNO MOM CO MMMMMAMM cy NINN NIN) OM) IM) 00 SF 
CUMIN —O—- ODO weQTrKrK KN mM et Set see seed eel O° el sell ell mo ™N 
* «x * «x * 
O-O Nu Oo wre-Or-O OO -O0=-- * OM ~ 
hh W000 COMM — ONRKRRAADWeM —ON SOR CRNA | 
pene Ley PS TPPEP PT ETE TTT PETTY Tee 7 | 
DaAMAD MSM st MMMMMoaMmMor, NNN NIM) OMNIMIR. sr at wT 
e— CUI KM — MR mm mre ee OM) eee RE Mere ee MM N 
« * «“ «* 
Ovo tte NROM «RM eUIMRK—O # OMe—cuty 
WMIM) TF wT O ROR OC wOONRK RK AWNDWRK— KR ORWRKWWOM-OCOO 00 & O 
rere ea) . TY F Peart ivis. 2 SEELPLTittis rare 
WAM NO OMe M &—& MMMMMOMMMNW CO MMMMMOMMM 0—e— OR. 
— UMM) OQ 8M — MM Serr Kr KK KE RK MM QO Kerr Kr KK eR RK Mmm ser cu 
R R z= * sed 2 RRaR 
NAMM Saat a3 = SOK 13o Sooke BOOS Bw ORE GS TOYS Sin OD SRT 
— - wT _— 
TERTETATTE TELE T TTP TTT ETT TT SETTLE TET UREA TET ET ETT TT TT ETS 
AD NA OR GRR ERR ER PR PML er EMM MD et eat trees 
— MM i el ol —™N el el el ee wT 
© — _— wo 
BT Pec re <2 239 38 ©. et | 
ee w 
: it recEEEEEEE PP EREe2 86 22 | SBERESERSELSOSTY | 
Ww ww 
4: = Fe TAAADAABDANNADA | 


LN eS 
ee am ee ee ee 





I 10 


MACRO V04.00 4=-APR-81 01:15:59 PAGE S=28 


CROSS REFERENCE TABLE ‘CREF VO1-05 ) 


SEQ 0333 


C-Z7RMOBO RMOS/3/2 FCTNL TST 3 


13=-€24 
13<H17 


13-238 
13-E63 


15=(€45 


13-259 


ow © 
toed , ee 
. ce 
ao La) 
c OR 
RM MNO 
vy 
MAPA W aah 
oe ON a) 
—- OO lll 
| \ ation 
a a ed 
tt . 2 
NONI = 
Sie ies Lm) 
Won am, 
ieee tt 
BM NY awn 
cere Ne 
wv 00 C Re 
aor) —M™ 
NWO —N 
sete tt 
Men) Ov 
cee NM) 
—-woOr- oo 
ww oo 
~a®g —™ 
ite tt 
MND ows 
eh eee nM 
oO ~F © om 
Led 
bk ' 
Mm POM) ow, 
ce OM 
MM) Ow 
Oonwys OOo 
wnt —™N 
a oe | es 
MMM awn 
ee Pe 
Onn w 
corm) ~F (ole) 
w @o hn 
itt ‘ot 
ROM ow 
-—— ~M 
~wr OF 00 00 & ~~) 
—-DOOmo — On 
we-wAc Wee 
gers it 
PONY PP ON aw 
oe en OU AM 
~mMmNOCoarcy ©) 
-DWDOrw com 
MA wit AO we 
#eteteeeet it 
MMMM AUT nw 
eee eel el on 8 am 
MINN CO Ou te oom) 
mM OOR ah 
MMA MV lH CUN, _ 
ett tites#pes it 
WMMMPM—m ru Ov 
Neer rrere sys eM 
Te Msroru sO CO 
OnrOCTOOO BK 
mee Oe Me 
ReeeeyvunvaFr 
MMMM MOM oF NOU) 
ae el oe el oo YL 
R R 
aw eS Oo WMKR- 
Wine V LEAL 
(ret tegpecte ! 
TTMOMM mor ncuss 
en dk oo oe 
zrta Ww) 4 
wa —- Wit 
- Sar fee 
€ Ww an ee 
tad ta lay —_ 
MMW ABRAARWD 





13-=05 135->88 13-038 


15-;20 


135-969 


10-15 


START2 


4-484# 


Lea 
Ce 
i 
™m 
Ww 
- 
= 
i 
™~ 
WN 
© 
= 
' 
™N 
Ww 
© 
ced 
o 
™m 
Ww 
© 
gene 
4 
™m 
WwW 
i? @) 
] 
~ 
ww 
Se 3 
ow) 3 
oO om OJ 
i) 't ‘ 
eK Aa OH 
Ww Wau wa 
22 
Mrs ~m remem Nn 
We -—- Oieene = 
ts it it ] 
oo OKT Nm OWN 
woo ow Wm Wr 
Mmm % mm ™ 
ee FN Se 
tt 1 ae 4 
woo on Mw WY 
mir ww wun wn 
—— _ -— ed 
-—-e -—N ee -_ 
it ' 4 ' ( 
Oo ORR NN WN 
Wu wus wu Ww 
eo ©¢2 
-—— EN OO OO 
5 1 ' i) ae | ' 
woo ORMRNWNH WN 
WU WAU WU LF a) 
™N w 
COcC;O Wer ODW wD om 
it teed i 1 
O0 ORRMM WH a 
WU WNW UALA UN Ww wT 
RRRRRRRRARR . 
www wT oT NT wT OW wT wT wy 
ay 00 GO GO 00 GO 00 GO G0 00 00 w 
Scr ears TF UERTET YR TY . 
MOO OF mw WW i i i i i a a a a Ye) 
WTFUNW UN Fal’ a) Ww _ 
§ - & 8855355555545 SSS008 
Seer KK emer MK Ve Troi os 
AAPSP PREP RREESR AREAS eaaeae 
Mow ORMMNMWOMNsas woes 
TWA DMMNWNA AAW 
—- VPM ss pag h a § 
ZOBSSS a a — CMs mor ORK VUM TW 
ORD OO Ooo ees 385555 3359's 
— - ~ 





A 
A | re ee eee es ee ee ee 


J 10 


MACRO V04.00 4-APR=81 01:15:59 PAGE S=29 


CROSS REFERENCE TABLE (CREF vO1-05 ) 


SEQ 0544 


CZRMOBO RMOS/3/2 FCTNL TST 3 


| eels 
tt 
Ms @ 
wv 
* 
-o 
't 
Nw 
wv 
-e 
ie 
NW 
wv 
-= 
' 
NW 
wv 
“wT 
- = 
' 
Arr 
wv 
—eo 
tt 
OPM) 
ww 
w 
w 
Owe 
. = 
wor) 
vw 
co 
AN 
i) 
Or) 
—w 
- 
wm 
Nc =_ 
it ] 
om WwW 
—~T w 
«= 
~~) 
re oe - 
‘st ] 
om WwW 
—--~T wr 
x 
Mm) « 
Ne c- 
‘st ] 
om WwW 
~~ w 
MY « @ 
Ne GN 
: i 
om © 
=a +e 
R 
Mw) * mM) www 
Ne ON oun 
tt it cc 
om OO fuCUCY 
SF KN Kee 
ZRRRee R 3 
SSSSSS NMOS 
00000 00 0000 & * * BOMMMMM 
TIVVVTS Tee eee 
Verse ONVONOWI 
TT — 
-- 
Ud 
4935eee co Sn 
--— wT 
z 3 ~+aad 
AAADRBS arse 





25-9# 


16-162 


ty 
ous 
mc: 
| | 
Al, a) 
cc - 
MO 
woe 
WA 
it 
MM 
~~ =~ 
BL 
~~ 
SO ii 
i'd 
mary 
--— 
ow 
WOCy 
uw if 
: 
haAMm) 
-— 
my 
Ow 
wy 
1 
MM 
—-e 
orm 
lati @) 
“wT +e 
it 
mm 
--e 
co 
™ COU 
_ My) -e 
i] it 
Oo mn) 
w — 
i+ @] Ons 
>) i mie @) 
- Mm) «+s 
] ts 
w mre) 
™ — 
Ye) woo 
© co ~r 
- ™ 
' ie | 
w RON 
™N _— = 
™) om 
~™ wm 
-_- avi en 
i tt 
wv NN) 
™N =e 
R 
™m Oaoo 
© wv 00 © 
- ce O 
i eet 
wT wr ene 
™N Tec 
7 Amn 
* moO M mRNA 
—- OA oo wre @O 
i ' 3 J ist 
wm Ov wT wee 
wT oN |M Teor 
en mM ¥ a0 
- MO © WV) O 
— ANN mm RRR Rr Re RP RRR RR RR RR Re eR ere IT Oer 
7. Je Pe rereretzrerrraraes PaeRprPerrFrEeRSE 
Ww OO RK CuCUCUCUCUCUCU CUCU CU CUCUCU CUCU mi) 
wr wr Marsesws>ssswrwswvr rr rie 
RRRRRR BRR RRR RBRRRESR RRR 
fo @) esa Fs mcousr oO Now See Sy we 
eee ee 7 eee ero at) ol ABOWUMOre —M sr wavs" 
Beseerpakrteresaseecayn ec ae iteteeveect 
IIIS TMM MMMM MMMM MMMM MDP as 
Cet eet met peel cel oe oe ee oe oo ook oot ood ooo ooo ool cool ooo seed soll coal < i eel 
w WY a 
YVvu> WwW ORK OMTnmHoMme OF NMsewu & 
las lu SO FK*”*UCUICU NCU OM TO OM 
SS oy ee ee I 
~a ZTENMNNNVWVWMANVWNVWNVWVWWVWVWVWVWWMWWNWnNnnnnnwnw 
ee 





K 10 


759 PAGE S-30 
04.00 4-APR-81 01:15:59 
MACRO VO4. 


01-05 ) 
E (CREF V 

ENCE TABL 

CROSS REFER 


SEQ 0335 


T 3 
ZRMOBO RMOS/3/2 FCTNi TS 
C 


-¢) AS 
oe 
i 
i 
mn Oe 


38 
Si C 
t 
= ‘ : 
m = 
7% a 
' 
wo . 
ww , 
+e 7 9 @ 
‘ ms ms Mw = 
x ii yooh 
a A AM 
-e t 
ae wn 
wn 
wv 


nN 
Ww Ge 
So 1 t - 
® rm eek 
raw ed 
i MM 
“2 FZ <cHese duh m “5 4 
-F TS pa ag Be he B95 My 
_ ~ at ore 
' ~ | 
— ala 
ww rr wv R 
~— ¥ — poy i 
me mM we a rae wn 
R nN mw atti 
nO . a7 "i NM) rama mm Oo oO 
No ES vt nN wa COM Nu OS 
wo FO woo — ae FS 
“so *e 
my NM) de ma NS Ammo 
-— = ve) dy £E ptetemnpty .- 
wr rat) AM) Ai, i 
wn NM) — ' nal N oO 
a- NS Sithhtah oh Ween OX 
ae ri itty Sar te a. i. ge gw % n 
A ae 8 Kee 2. S00 4th om 
=o ener 2 Hy “m a) pala hyd T Vo 
wr Cu Ca Me oy 
re = ) gun —— 
ow re) ~NS { ~) pee 
Tr is npnembaenetcthte te Som * mm n 00 E80 Ie 1 
5 mr) ere 8 Wr. a0 ;t? ~ ow 
me oe Ww Am tt Mu : _— 
oe oO rh ae ¥. een 
Cu ~~ 
ae m~r “wr AW es 
Tt en A habs SA ROW eS TBSua Y fh 
= ke a eae LPM = = 
se. & BoA OH te 
- : “" — 
*) com reer & ot int On oe 
CS en 3ES 3 @ Sark oo x 
@ Oe * 81 - 2 22 be ot ee ww Som 
myn) eM Ve RE if wr oO _ 
one = ee ' 3 RS atin tod sil 
™ U =— 
t Nw = 
a re 
Boman awn sr S Rk BRAS « B 
os 
ehhh Re FE & BRACE 4s 
my ae a) am 4 nN Os j it ala’ — 
=r - ' MMM) - 
0 oO oO © a oe : A wy wr eee 
QSCONN & Cy ra Wx Frm sm 
raaer s Soy 5 F YOSMANSH 
' wT w ' 
aabaln nay= > he a he | Yd Rea eUa ee by 
wr eee W Oe wT tt WW ~- 
— NO a MMMM S 
wT wy itt w) ES 
= = oO mM) N 
2Or 2. < ree 4 Ms ee a = 
Br eRON = Ive = © SSohanem S 
N ™N 
manne cure + LC eRAK oon vA Toh etek ob 
i tl Oo WON raw Ee g it MT © — 
_— BEMMU EA BAN + eee Nee 
Led 
a. a. # Beedan darren 4 he 
om 7% ! Mt a ae 
Be Sass $2= 2 BARRN SRBAT ISR oAwS Ses 
i rTP eT wwe A Re Snr RASS A ENTERS it 
ai caetaeie dl RBZ z3~-F2 pag FG ty eas ae al 
come NR OO ape HY gage! Fmt Na A EMM We 
RENE SONSRROORNE er Se 
os TLTTTT TTT TTS RPT TT >. 
mW oO me CO — ~r (treed Sd4s 04M 
ASZROnS HOR SVS S4Sd454 é 
co wr st 
c 14 —— 
Aerie b eis =° Ww I wi 
coe eee vez = SY8SSSe = JURE 
58S 2Zz22a44> 33333 
5 Ow Hr eSs3sssssss: 
oS aa ee ID 
> > 





L 10 


MACRO VO04.00 4=APR=-81 01:15:59 PAGE M~1 


! CRUSS REFERENCE TABLE (CREF VOQ1=-05 ) 


— CZRMOBO RMOS/3/2 FCTNL TST 3 


SEQ 0546 


13=C€24 
47-18 


13-038 
47-1 


13->88 


47-1 


6-0 6-0 6-0 


6-0 


47=) 


i+ @) Ww Om MOO COMICUR.j 00 ee hm wr eM 
oe NY WOR GOO +s eV VY Il ih as Ow 
i -aeR RAR REA SS ££ EE ae eS Ee 
alesse. 2.4. 646041.6). 41.01.41, 4.0.44), 24418 
el el geal eel el eel el ee nel eel eel eel el el el el el ol el eel el 
MONT CUCM & MAINO © sr — COCUR. AMNOOryU 
lh ee fh | wipro "'reVVITLAG Ou 
+reteete tbere_etettette_e ttt te=bttebes 
anes sse4n4044,.6.4.0,8046 4.4.04 00148) 
cel ee el eel eel sel eel ceed el el el eel eel el el el ol el eel el ee 
MA &= SOOKR MO DO — ANOMNOM OO 
oe WN » ie MmOO ee ee VVIAG Ow 
b drdishreerperenerenerererenenerenenene 
a) eles 4.4.4.4, 4. 4,4, 6,0 £0), 4818) 
RS Cr ree 
ad a PO he lipens: ol ely” Oe emai 
HR ODASTR MMM ee Wer COCO sw Mcuruss © 
teh’ we th oo tereVV HAG sow 
petted Pee. eeP £48 e See SG 14 
MMMM SOMONE APO ROO RO ROR ORO AO) 
SS CS CC CC RE rr rrr 
MO OWT OMIM We Fm OOO wr CUT CUMIO © 
ae we be are e*eV V I hh i oe D 
a4 84 8 3 [2.2 2 5 Sf 2 Be SS ie 
ROMEO PY) AP) A A) I) A) BB) 
eel eel el eee eed eee cel el cel oe el el ee ee el el ee oe 

KUNA Owso O- OO OOM. COcMr 
OSSSNFMMASSH HORN SA OrN9000 
CO. IN SF NOR COO eases HAC BLM 
Baan Fe Resteekeeegeeereez 't 
Le Le Le Let Le Lf Ll Ln Ll Lal Le Le Le Le le le lee ele) 
ES CC Ce 
MOOT VO@MOMN TR. MCUMDODCUCUMNAOM 
ae ote & Me oy se sareV HAG: Pee? 
$eetts eee. 8 8 6 8 EA Se SG it 
MMMM MANSY POO OP I) 
SS 

CRB UAR AWM © of Oe MIM Ae) OO 
een outa ak nc nto b A eeribar ee 
Peel we & we a at) eeaeel I eo & oe 
eee q 8 Fe 6 8 6 6.8.8.9 8 & tt 
fe Lidl Ld Lic Lindt Ladd Lindl Lindt Ln Ladd Ladd Lie Li le lef ll Al Oe eee 
ee eek meek pel eel soe neh pe eel coe sel ed ee oe el el ee ee ee ee 

beter Seallpemng Pt ob gt Ne ree SED + neh ng 
HAS eK MUO DWDOOCOM~ aT WoOWorh hr 
RY. em CUMS UNOR ALO «8 te te VHA ‘ak ooh 
otrreetetet t+_t!etet_tt_t_ t_t_e_ete tt 
ft Lit Lindt Lan Lindl Lad Lid Lad Ln Le La le Ole ne Ole eel el ele 
eel ed mee mel seed eel sel el el eel eel el oe oe el ee cee ee eo ee 

WWMM Ost Csr en & MMO MOM 
b a ah ae oO aie tee ere Vll AAG @@Ora 
ee fF 8 8 Sf eeeAAGBea SBE EE FE SS 
MADEN AO) I) 8) 8) 8) OO) 
CL LC CC Ee 


ia co NMNOO-N nN ULAR APEOO 
© yr We NMTY -wreeadve tavay I~LaQ 
t SP eee eRe RO RRERARRARRSRAR 
Oo ST MMMM MM MMM MMMM Mm MmMrmMm mmm 
Peek eel eek see eel see seth mel cel eel cel gel eel cel wel eel peel eel el el el 

= 
TOW — WOO WMK TOUR — OMA CUMDO Cus O 
N NODR RK RK NRK mr Kr Kr ce3Tr3TrereyyeRs TTTriltt ROW eV IAAT BQwWG 
SPS OCR EOP eR Ser ere © SP EARS Se SARE RAR RARS REAR RRA 
Oo NOWMAMMATMO OWMRN KORO TT DMMMMMMMMMMMMMMMMMMMmMmmm) 
a w ews wswmOsr MMs Pee Se meet meth mel seed eel eel eel eel ee med el el el el el ee el 

n Baa RRReeeaer 

PETE TET TTT TT eT Pe TP eT eS TATE TTS 
OvrvvwyyyrrsrserreTMMMMM MMMM MMMM MMMM Mm nmin ny 
-_ tet sell sel gel sel, el mel sel cel eel eel el cel el eh eel ee ee el el 








SEQ 0337 


M 10 


MACRO VO04.00 4=-APR=81 01:15:59 PAGE M2 


CROSS REFERENCE TABLE (CREF V01-05 ) 


— CZRMOBO RMO5/3/2 FCTNL TST 3 


BASS SRARA EE AGE LECBACRE RE: 
LLM Abbi ASDMGERAAIEDS 


CUR & KH ATPASE KRK MOR MOAOO ST st OO@OM NEO ~O 
PPR P RGSS YE PEP ETT ET PETE ETE 
ek eek week wk wk week eek wel wel cel cel cee ok eel eel ol ol 
m= CUM FUVDOR BD #2 te VHA Maw © TTT ag 
erreeetBetet_tt_t_t tt see t ' it 
a Le Lid Lad Lindt Ln Lindt Ln Ladd Ln Led La lo 1 eee ee eee el el ele 


NB ees SSN Sos 
—— HNMR. DWAONUN OOWDO-NOWVOOR Ae TTR OAS 
=CUMITUVOR OW 2s i V HACE QWu4. OM oe og 
BWeegcereeeseceeteere Reeve eeaeetagee it 
way a Lad Lich Lit Lath Lich Lah Lich Lic Lindt Lindh Lindt Lidl Lindt Lindt Lint Lat Ln La Lat Ln ln nl lee 
Dee mee mee meh ee eee el eel me ee cee se ee el el ee ee ee ee ee ee a el ee ce ee oe 

BN OR REE Saas ok > Party 48h 
MO-— TO OTA eae Cur OR. xt WNCO COO 
QA— MTOR. HW *VHA Own YO T¥*7F og 
es 2 ie 2 oe 2 ee eet tet tt 
ra a Li Lit Lit Lied Lid Lindt Lindl Lindl Lind Lindh Und Lindl Lied Lie Lad Ln Lat eA ele ee 
tee mee Seek see see see mee See med see ee oe eel seal ee, cl el ee oe ee el ee ee el pe ee eee el 

COMO OM Be een ee Or Sst. 
Owd-etu~rwne ee en ee mM arh. coo 
CO — MTOR. eereVl AG <Goweo a i oa 
poeeteuet#@eettt@e#e#tetet es RRARAR | 
MMO MINIM 
Se ee gee se ee el cel ee eel ee cee ed ee ce ee a ce ee el ee ee ee el ee oe ee ee el 
ORO STK Wein Ow WIR DOMPM-~7iNOcd 
arte ie ig at we eo*eV li AG Gy. OF ae a <- a. 
etete oe+etret)_etet_ st tet | on | ' 
Fe al Lind Lid Lindt Lied Lidl Lidl Lindt Lindt Lid Lied Let Let Lind Ladd Ladd Lad Lindt La Ln La Let 8 A ee 
ee mee cel ee el eel eel eel ed eel oe oe ee oe ee ee ee ed ee eed ee el ee ee ee ee ee 

ee ee a Be MOONEE Shean 
Or. O:-MMODOe—MMNMNDWO retary fe ™ we 
OK MTOR DW ee ee VNAC CMHOvuwu VT wo oa. 
(prt teet#tett#t#tt#ttt4 #etetet_et ete it 
alee le ld Ld Ld Led Ll Ld Ln Lin Ll Ln Ln Lf La Lt 1 1 ee eee ele le 
te samt uate iat ita at ah a mee tt an aly el a ee el co ee ee ce ee ee ee ae 

AOODOOOT —- ODMOMOs- MDA OA ONO Ne Oe 
WOBH HK MADD Bt ORUR SAMS OAK M)\O 
Wee UST NOR. COO ee V IAG Oe wiu. @ — = J oa. 
aeaseteeepeeabheee Cee eaeses F 6 ft S ') 
MMI AID BD 9 9) 9) 8) 9) I) I) 
PE EG EF FOC FEF CF CSCC SECS EE erEeE ef 

RMON eR — ORAOM —- Orn Ov OOMRM OO 
~ Sr Boehm Uk Bi Oo SRD Nh 
ah oe Oe ab ei eVIAG BDO WE. © —eTrTr oa. 
(tret#etet#tett!tttte_et#tettettt et it 
NIMROD I I) 8) 8) 8) 9) 9) 9) 8) 9) 8) I) 
PEE GSE FGF EFC OF OE CHM CE CSE CSS CE 

M—WORKOAA Rm STOUOUDMMMOAR MOMsruoons.rn-k 
WOR ROM DOONNMA SOK NASB CCAS 
i wh wd al eVIAG PAL OFS DeE SOG 
BSeeegasesvarrtrs & jit ‘et ! 
MNO RII I I) 8) 9) 9) 9) I) 
OEP EE FE CC MCCS CPCS Kr Soe 





135-C24 
135-24 


13-=05 13->88 15-038 
15->88 15-a38 


13-=05 


13-320 
13-;20 


13-969 
13-969 





N 10 


MACRO V04.00 4-APR-81 01:15:59 PAGE M-3 


_ CROSS REFERENCE TABLE (CREF vO1-05 ) 


SEQ 0338 


CZ7RMOBO RMOS/3/2 FCTNL TST 3 


oh ele, MmOArcussr MARKO Oru 
z rSOBASARK PK NOM DRMONOOTS w 
’ ' RAR (+ettet t_et_etst rr 
co nN MMMM MMMM UA G0 G0 00 GD GD GD GO GO GO GD 00 00 00 00 00 co 
aes wT Sek lh al ae eek ee ee 8 
mwROAowroawnn ow | —MOmdOOrwy>ORA—™M 
WROMATSS x QONBSHFMRAVS LAM 
7 7 fea beatke ae ‘WeWh chev sstaczvedn 
» Ne MMMM NIMBUS GO GO GO 00 GO GO 0D 00 00 00 G0 GO 00 00 60 00 a0 
wT w Sh ae eee el eee een 8 
KR Ow mnoa@ MmMODOCMM Ae Ms OOO 
MARK As FO MIND COE RMN OAS Tan 
; + ORYRTSE ET TS Tarr iee tts 
on nv MMR MAA ROUT GO GO GO 0D GO 00 00 00 GO GO GO 00 00 00 GO 00 0D 
a) w ee neh meh eee ee ee eee 
ae gat Ae Ef TOMOKO Cusr ODOOMMNI 
Mus © SOLE ON —OOsOnnre K_ NATO MR  — 
5 yO REPRESS Mis Triitir tts 
J ~ MIM MN OW 00 G0 GO 00 0D GO G0 00 00 00 G0 00 CO 00 00 a0 00 
wy w eh eee we wee pe ee ee oo ein 

INN cil Oe —mROoOwW TOO MMR OOrusr 
™N ~mwAoOoonwo--.r RA K—NOsTeoOrwmen NOMOM -— 
w — AMm.n Pu. ~ON- ONO = — COUN CUM) st or or 0 Or 
e) X oteee 22 £.e Berete tt eoeevwereay aS 
w | MMMM MMMM) OW GO 00 G0 GO 00 GO GO 00 GO GO GO CO 00 G0 00 GO 0D 
wy w et ee ee oe oe eh ee ee el 

wTOWRK — Wor) COwr RA MOODS rw Oe 
o NUAKOAWDOO- Ow>OOMAMBUDOMOAM COCO -— 
wn — Mn Daw eve NOD CUCU) 8 oT or OO OP 
4 ' eke Sen € Ss See ereaeeer ee SeSBa eee eS 
w nN MMM PPO) OM) ~F 00 00 00 00 00 00 GO CO 00 00 00 00 00 0D 00 00 0D 
wy w SS EE eo oe - 

MOAnjMoOr-., MWOwr ODOMNKAA—KR ws Od 
™N MAMOoOWUOMNO tr O-MOMNAMRWOOsTdomrawoo 
; 7 OPPEVET ETI ied coeveewesbsueRe 
os ~ DOM M MMM ram cu “WF. ~F 00. 00 00 00 0 00 GD 0 00 0 © 0 00 & 0D 0 CO 
wy w SS ee ee wT _ 

MOr Oreck me Oe a OO Oe To 
oT 1 TC LETULTit ‘Mw &KYY Ce wR ESE EAD 
© ~ DWMIM MMB M) MW TF OOOO OO WOW 00 WO 0000 0 0 0c 
wy wT Re eo ee ~w _— 

Or UMAR WNO pe EN RE ON ena” 
 ] WOWVUMTWAaM ™~m St DSS ae wToOruworwoOO 
; 7 (PPT [oe kod Kv eRKMRS RRO RE 
i+ @) ™~ beaeammnwaund Tt O0OOOWO0OWOOoOmmMnmomMcdncandcd 
™N w Sl SCC CeCe eT Tr &- 

ow 

oO Ww TR OMOArMKN ANKR Axst ODOMONKA O 
7% Tt Peters F RTT Serr ITe tie 
wo ew wn WMI) I) OS O% ~~ ©00000000000 ©0000 0000000000000 & 
Nu wv , coal sual sect gee seek eel seat eel 2 i OS oo 
- MMO OvwTO OCT OO MN OM Cusr OO 
> 8 BSURAAR 2 SO M_ K—MMONDOIUAMN SOP 
Tuy TT OTe REIT. F RCTS T Tir i eit re 
ay es ur WAM IO) BOP) I) CO CO M™ ©O0mmddaddddcmcdcdcadc0 000000 00 
WT eo ww Cee ee ee ee ee - oo 

~) Owmorcucess Rea M00 MAM OCusr OMA mM 
ont OIRNUANOCOO Mm om Oo DOMN VOSS RMN —NOINo 
Tt TTT | OPT RG TTT aY | PY TTITTi reer tier i ee 
Ratoata NAN MMMM MMM MUA IK. 00 TO WO 00000.00 0000 00.00 00 00 00 00 0000 00 00 00 
NAT wv SS SE SE MT ce eT 

zz 

w mMmomrcucy wT OnMnMOw SKA MM ao 
mae am DOMAIN ~ oh an wea teSartars aoe 
wh dary Gi vet ites ianehy ¢ ie cB ca cet ayeeewre eevee 
eh rR O MMMM MMMMUN OR. Oo Iw O--OMWWOW0O00000 0000000000 
NT -vT Ce ee OT _- cc 

2? 2 RRR R RBRRRRARR 

NVT® TMM — WO a N wT wocouwmn FT ODOCWMMNnN 
rT YYTPITIITTY Te ON ior er er re re Oe re hae ? 
Het hdhhhhh beled sees lesoobboooddoodooe 
ws wT SPH “ase eee = ee 

OrFues w We — ’ 

w Feaa mw 2 ) fe Uvx 

Pw Ow uy sy oe Pt $3333 555% 

SFeEnnManwn Dn— ee ee ee 


